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This publication describes the 1130 Disk Monitor, a combined 
operating and programming system. This system includes a 
Supervisor program, a Disk Utility program, a symbolic 
assembler, a FORTRAN compiler, and a subroutine library. 
The latter four programs operate under-control of the Supe r- 
visor program to provide continuous operation. 


The IBM-supplied subroutine library contains routines for 
input/output, conversion, and arithmetic functions. 








FOREWORD 


The IBM 1130 Disk Monitor System, a e IBM 1130 FORTRAN Language, Form C26- 
collective name for five distinct but interdependent 5933 
programs - Supervisor, Disk Utility, assembler, 
FORTRAN, and subroutine library - is a powerful, e IBM 1130 Assembler Language, Form C26- 
combined operating and programming system. 5927 

The programs that make up the Monitor System 
use advanced programming techniques, including e IBM 1130 Subroutine Library, Form C26-5929 
relocatable subroutines, highly compressed formats 
for data and programs, and flexible input and output Throughout this publication all references to 
command structures which facilitate data conversion locations in storage are in hexadecimal unless 
operations. A unique feature of the 1130 Monitor otherwise noted; therefore, the subscript 16 
System is the "floating" boundary between the user has been omitted. 


program /data file area and the disk Working 
Storage area. As information is added to disk 


storage in the User area, the Working Storage Machine Requirements 

area is decreased in size. Conversely, ifa 

program or data file is deleted from disk storage The minimum machine features and units 

User area, the remaining programs are packed, required for operation of the Monitor System are: 

and the disk Working Storage area is increased 

in size. e IBM 1131 Central Processing Unit, Model 2, 
The following publications may assist the user with a minimum of 4096 words of core storage 


in utilizing the system: 
e IBM 1134 Paper Tape Reader and an IBM 1055 
e IBM 1130 Functional Characteristics, Form Paper Tape Punch, or an IBM 1442 Card Read 
A26-5881 Punch. 


This publication (C26-3750-0) supersedes IBM 1130 Monitor System 
Specifications (Form C26~-5940-0), which is now obsolete. 


Copies of this and other IBM publications can be obtained through IBM Branch Officés. A form has 
been provided at the back of this publication for reader’s comments. If the férm has been detached, 
comments may be directed to: IBM, Programming Publications Dept. 452, San Jose, Calif. 95114 


© _ International Business Machines Corporation 1966 
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The 1130 Monitor is a disk-oriented system that 
allows the user to assemble, compile, and/or 
execute individual programs or a group of programs 
with a minimum of operator intervention. Jobs to 
be performed are stacked and separated by control 
records that identify the operation to be performed. 
The Monitor System consists of five distinct 
but interdependent programs (see Figure 1): 


e Supervisor program 
@ Disk Utility Program 
e Assembler program 
e FORTRAN compiler 
e Sibeatias library 
The Supervisor program provides the necessary 
control for the stacked-job concept. It reads and 


analyzes the monitor control records, and transfers 
control to the proper program. 
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Figure 1, 1130 Disk Monitor System 


IBM 1130 DISK MONITOR SYSTEM - INTRODUCTION 


The Disk Utility Program is a group of routines 
designed to assist the user in storing information 
(data and programs) on the disk, and retrieving 
and using the information stored. 

The assembler program converts user-written 
symbolic-language source programs into machine- 
language object programs. 

The FORTRAN compiler converts user-written 
FORTRAN-language source programs into machine- 
language object programs. 

The subroutine library contains subroutines for 
data input/output, data conversion, and arithmetic 
functions. 

The Monitor System coordinates program 
operations by establishing a communications area 
in memory which is used by the various programs 
that make up the Monitor System. It also guides 
the transfer of control between the various 
monitor programs and the user's programs. 
Operation is continuous and setup time is reduced 
to a minimum, thereby effecting a substantial 
time saving and allowing greater programming 
flexibility. The complete Monitor System resides 
on disk storage. Only those routines or programs 
required at any one time are transferred to core 
storage for execution. This feature minimizes 
the core storage requirements and permits 
segmenting of long programs. 

In addition to providing the user with minimal 
operating time, the 1130 Disk Monitor System 
significantly reduces the amount of programming 
to be done by the user. This is made possible 
through the sharing of common subroutines by 
unrelated programs. For example, input/output 
or conversion operations are required by most 
user programs, regardless of whether the programs 
are written in the assembler language or in 
FORTRAN. IBM provides a library of subroutines 
as an integral part of the Monitor System. 

The assembler and FORTRAN compiler 
facilitate development of a library of user 
programs. The object programs can be stored 
on cards or paper tape, as is customary in 
installations without disk storage. However, with 
disk storage, programs can be stored directly 
on disk without the necessity of designating actual 
storage locations, remembering or documenting 
the storage assignments, or updating the 
storage assignments and documentation as 
conditions change. The disk-stored programs 
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and data are referred to by name when called program or data. 


for use. The Monitor System, through the use Any program that is added to the user's disk- 
of a table known as the Location Equivalence stored programs is usually placed at the end of 
Table (LET), can locate any user program, the other programs. If a program is deleted, the 
subroutine, or file by a table search for the remaining programs are usually packed for 

name. Stored with the name is the amount of effective utilization of disk storage. This packing 
disk storage (in disk blocks)* required by the — facility is described later in this publication. 


*There are 16 disk blocks per sector; each disk 
block contains 20 data words (refer to Appendix 
C). 


Disk Storage is divided into three logical areas: 
IBM Systems area, User Storage area, and 
Working Storage area. The contents of these 
three areas, described in detail in subsequent 
paragraphs, are shown in Figure 2. The sectors 
and cylinders that these areas occupy are shown 
in Table 1. Appendix C shows disk storage unit 
conversion factors. 


IBM SYSTEMS AREA 


This area contains the integral parts of the 1130 
Disk Monitor System: the Supervisor program, 
Disk Utility Program (DUP), FORTRAN 
compiler, and the assembler. The FORTRAN 
compiler and/or the assembler can be deleted 
at the user's option. 


Supervisor Program 


This program supervises all monitor operations 

and performs the control and loading functions 

for the user programs and monitor programs 
(FORTRAN, Assembler, and DUP). The 

Supervisor is directed by monitor control records 

in the stacked input. Included within the Supervisor 

is the Skeleton Supervisor, which resides in core 
during monitor operation and provides the communica- 
tions link between the monitor programs and the 
user's programs. 


Sector 


0 


Supervisor 
(includes (ee od Fixed 
identification, DUP | FORTRAN |} Assembler ‘ik : Area (if 
rea is : 
cold start, defined) defined) 
DCOM) 


DISK STORAGE LAYOUT 


Table 1. Disk Storage Allocation 


Total Sectors Cylinders 
Sectors | Occupied Occupied 


Identification 
Cold Start 
DCOM 
Supervisor 
DUP 
FORTRAN 


Total 
Cylinders 
VA: 













2-7, 9-55 
56-127 
128-231 
232-271 
272-295 
296-303 
304-1599 
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Disk Utility Program (DUP) 


DUP is a group of routines provided by IBM that 
aid the user in the day-to-day operation of his 
installation. By means of these routines, certain 
frequently required operations, such as storing, 
deleting, and dumping data and/or programs from 
disk storage, can be performed with minimum 
programming effort by the user. 
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Figure 2, Disk Storage Layout 


User Storage Area Working Storage 
Area 
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FORTRAN Compiler 


The compiler translates programs written in the 
FORTRAN language into machine language, and 
provides for calling the necessary arithmetic, 
functional, conversion, and input/output 
subroutines at execution time. 


Assembler 


The assembler converts source programs written 
in the assembler language into machine language 
object programs. The conversion is one-for-one, 
that is, the assembler normally produces one 
machine language instruction for each instruction 
of the source program, 


USER STORAGE AREA 
This area consists of the following: 


e A Fixed area (optional) for storing core image 
programs and data. If a Fixed area is 
defined, there will also be a Fixed Location 
Equivalence Table (FLET). 


e The Core Image Buffer (CIB) 
e The Supervisor Control Record Area 
e The Location Equivalence Table (LET) 


e A User area for storing IBM-supplied 
subroutines, user-written programs, and 
data files 


Core Image Buffer (CIB) 


Those parts of a core load (main program and 
associated subprograms) that fall below core 
location 4096; are put in the Core Image Buffer 
(CIB) as they are prepared for execution or for 
storing in core image format by the Loader (refer 
to DUP Control Records, *STORECI). When all 
parts. of program have been processed, either the 
contents of the CIB are read back into core 
Storage by the Loader, which overlays itself in 
the process, or DUP is recalled from disk to core 
to complete the *STORECI operation, using the 
CIB as source of any parts of the core load which 
are to reside below core location 4096) 9. 


The CIB is also used by the Supervisor to 
save core locations 256; 9-409519 on every CALL 
LINK. Before each link is executed, the Loader 
restores any part of this area which has been 
included in the COMMON defined by the called 
link. 


Supervisor Control Record Area 


This area is used by the system to store 
information for use by the Loader (refer to 


Supervisor Control Records). 


Location Equivalence Table (LET) 


The Location Equivalence Table (LET) serves 
functionally as a "map" for the IBM subroutines, 
user's programs, and data files. Each subroutine, 
user's program, or data file that is stored on 

disk has at least one entry in the table. The table 
entry contains the name and disk block length of 
the subroutine, program, or data file. Each 

entry point in a subroutine requires a separate 
entry in LET. The user may print the contents 

of LET by using the DUP control record DUMPLET 


(refer to DUP Control Records). 
User Area 


As each user-written program or data file is 
added to the User area, the space available for 
the Working Storage area decreases. Conversely, 
if a program is deleted, the Working Storage area 
increases by the amount of space the program 
formerly occupied in the User area. For 
example, user-written programs A, B, and C 

are stored on disk as follows: 


CIB | LET } IBM-supplied | Program | Program | Program Working Storage 
subroutines A B Cc Area 


If a program, D, is created, it would be stored on 
disk causing the Working Storage area to contract: 


CIB | LET | IBM-supplied | Program | Program | Program | Program | Working 
subroutines A B Cc D Storage 
Area 


If Program A is now deleted, Programs B, C, and 
D would be moved up, maintaining a packed 


condition in the User area while expanding the 
Working Storage area: 


CIB } LET | [BM-supplied | Program | Program | Program | Working Storage 
subroutines B Cc D Area 


NOTE 1: Core Image programs and data files are 


always put on disk at the beginning of a sector, and 


remain at the beginning of a sector even after 
packing. Disk System format programs start at 
the beginning of a disk block. 


NOTE 2: The Working Storage area always starts 
at the beginning of a sector; therefore, it might 
not expand or contract by the exact size of the 
program stored or deleted. 


IBM-Supplied Subroutine Library 


The IBM-supplied subroutine library contains 
input/output, data conversion, arithmetic and 
functional, and selective dump subroutines. 
These subroutines are generally available for 
use with both the assembler and the FORTRAN 
compiler. Operating procedures are described 
in a subsequent section of this manual. Appendix 
E contains a complete list of all IBM-supplied 
subroutines. 


Flipper Routine 


The subroutine library includes a Flipper routine, 
which is a part of the core load for those user's 
programs that use LOCAL (Load-on-Call) 
routines (refer to Supervisor Control Records). 
When a LOCAL routine is called, control is 
passed to the Flipper routine, which reads the 
LOCAL into core storage if it is not already in 
core and transfers control to it. All LOCALs 
in a given core load are executed from the same 
core storage locations; each LOCAL overlays 
the previous one. All LOCALs required by a 
program are relocated and stored by the Loader 
in Working Storage immediately following the 
last defined file, if any. 


Fixed Area 


The Fixed area is an optional area that the user 
can define to enable him to store programs at 
fixed disk locations. The user can define the 
size of the Fixed area to be a whole number of 


cylinders, with a minimum of two, and he can 
increment (but not decrease) the size of the Fixed 
area by a whole number of cylinders at any time. 
Unlike in the User area, when a program is 
deleted from the Fixed area no packing occurs. 
Thus, programs or data files in this area can be 
referenced by absolute sector addresses, since 
they will not be moved. The Fixed area, if any 
has been defined, requires a LET of its own, 
i.e., a Fixed Location Equivalence Table (FLET). 
The contents of FLET may also be printed by 
using the DUP control record DUMPLET. The 
Fixed area is used only for the storage of core 
image programs and data, and not for Disk 
System format programs or for working 

storage, 


WORKING STORAGE AREA 


The Working Storage area is used for temporary 
storage. Most of the area is available to the 
user during execution of his programs. The 
Loader stores LOCALs (Load-on-Call routines) 
and SOCALs (system overlays) in this area, 

and it is also used extensively by the monitor 
programs (see Working Storage Indicator Word). 
For example, the assembler uses this area for 
temporary storage of a program during the 
assembly process; at the conclusion of an 
assembly or compilation, the object program is 
in the Working Storage area. 

The assembler requires 32 sectors of Working 
Storage for possible symbol table overflow 
during an assembly, plus whatever additional 
Working Storage is required for disk output 
(compressed source statements in Pass 1, 
object program in Pass 2). Since an assembly 
requires at least one sector for disk output, the 
assembler checks for the availability of 33 
sectors of Working Storage before beginning to 
assemble the source program. If at least 33 
sectors are not available, an assembler error 
message is printed (refer to Appendix A), the 
assembly is terminated, and control is returned 
to the Supervisor. 

During a FORTRAN compilation, FORTRAN 
requires the amount of Working Storage 
necessary to contain the compiled program. 


FILE PROTECTION 


The 1130 Disk Monitor System controls file 
protection. All Disk I/O subroutines furnished by 
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IBM check the address of the sector on which they whenever a program is added to the User area. 


have been instructed to write to ensure that it is Only data files which have been created in or 
greater than the file protection address in COMMA moved into Working Storage can be written into 
(refer to Appendix F), with the exception of the by assembly-language programs (unless the 
Write Immediate function (described in IBM 1130 Write Immediate function is used). FORTRAN 
Subroutine Library, Form C26-5929). The file programs may write directly into User and 
protection address, which is equal to the starting Fixed areas (refer to *FILES under Supervisor 


address of Working Storage, is updated by DUP Control Records). 


The Supervisor program performs the control and 
loading functions for the Monitor System. Monitor 
control records, which are used to direct the 
sequence of jobs without operator intervention, are 
included in a stacked input arrangement and are 
processed by the Supervisor program. The 
Supervisor program decodes the monitor control 
record and calls the proper monitor program to 
perform the desired operation. A typical sequence 
of operations is listed below. The programs in 
parentheses would be called by the Supervisor to 
perform the particular operation: 


1. Compilation of a FORTRAN program (FORTRAN 
compiler) 

2. Storage of the compiled program on disk (Disk 

Utility Program) 

Assembly of a symbolic program (Assembler) 

4, Storage of the assembled program on disk 

(Disk Utility Program) 

Execution of a disk-stored program (Loader) 

6. Punching of a disk-stored program into cards 
(Disk Utility Program) 


Se 


on 


The Supervisor itself is a group of several 
distinct but closely related routines: 


e Skeleton Supervisor 
e Monitor Control Record Analyzer 
e Loader 


e Cold Start Routine 


SKELETON SUPERVISOR 


The Skeleton Supervisor provides the communica- 
tions link between the monitor programs and the 
user's programs, i.e., it contains the necessary 
logic to conduct the transition from one job to 
another. The Skeleton Supervisor is read into 
core storage when the operation of the monitor is 
initially started by means of the Cold Start Routine 
(refer to Cold Start Operating Procedure), which 


occupies sector 1. The Disk Communications Area 


SUPERVISOR PROGRAM 


(DCOM), which contains addresses and indicators 
necessary for the operation of the monitor, is 
read into core initially with the Skeleton Supervisor. 
The in-core communications area (referred to as 
COMMA) is restored from DCOM whenever a Cold 
Start procedure is initiated or aJOB record is 
encountered (refer to Monitor Control Records). 
When COMMA is restored there will be no usable 
program in Working Storage. Appendix F lists 

all the core locations and information contained in 
COMMA. 


MONITOR CONTROL RECORD ANALYZER 


This routine analyzes the monitor control records, 
prints out the information contained in the control 
record, and calls the appropriate program: Disk 
Utility Program, Assembler, FORTRAN compiler, 
or Loader. 

The following three formats are used by the 
Monitor System to store information on disk 
(refer to Appendix B): 


e Disk Core Image Format (DCI) 
e Disk System Format (DSF) 


e Disk Data Format (DDF) 


MONITOR CONTROL RECORDS 


Input to the Supervisor consists of one or more 
job decks, each preceded by a JOB monitor 
control record (see Figure 3). The character 
codes recognized by the Supervisor are listed in 
Appendix D. Although the monitor control records 
are described in terms of cards, these records 
can be entered in card image form from paper tape 
or the keyboard/console printer. 

The JOB control record defines the starting and 
ending points of the job; however, the total job can 
consist of many subjobs. The assembler, 
FORTRAN compiler, Disk Utility Program, and 
user's programs can be called for operation by 
the ASM, FOR, DUP, and XEQ control records, 
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FORTRAN 
Source Program 
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Figure 3, Processing Input Data Under Supervisor Control 


respectively. These are each considered 
individual subjobs. The successful completion of 
the total job depends on the successful completion 
of each individual subjob within the job. Some 
subjobs are not attempted if the preceding subjobs 
have not been successfully completed. 

When a monitor control record is read, the 
system program required to do the subjob is 
read into core storage from disk storage. The 
program then processes input until the end of the 
subjob deck is reached, a new monitor control 
record is encountered, or an error occurs. 
Monitor error messages are described in 
Appendix A. 

Every job is assumed to begin with no 
programs in Working Storage (see Working 
Storage Indicator Word). 

Control can be returned to the Supervisor by 
manually branching to core location 0038. The 


Ver 






Working Storage 
User Storage 
Assembler 
FORTRAN 

DUP 


Supervisor 


Supervisor then passes records until it 
encounters a monitor control record. 


All monitor control records have the following 
format: 


Columns 1-2: // (slashes, to identify monitor 
control record) 


3: b (blank) 
4-7; Pseudo-operation code (left- 
justified) 


The following paragraphs contain a list of the codes 
and their operations. The monitor control records 
are summarized in Table 2. 


NOTE; Comments are permitted in unspecified 
columns in all monitor control records. A ''b" 
appearing in a column means that the column must 
be blank. 


[able 2. Summary of Monitor Control Records 


i th 

/ {/ b J OB T —— Disk Storage Label—— 
Pf OBR SOM 

/ {/ b F OR 

dog: be Po RUS 

/ {/ b’ TY P 


/ { b X E Q 


—— Program Name 





JOB 


This record causes initialization and termination 
of a job sequence and restores COMMA from 
DCOM. The format is 

cco 1 2 3 4 5 
/{/b6J5 0 
The letter T in column 8 indicates temporary 

mode. In this mode, programs or data files stored 
in the User area by DUP are automatically deleted 

at the end of the current job. DUP operations 

which are permitted in temporary mode are 
described in Table 5. 

If columns 11-15 contain a disk storage identifica- 
tion, this identification is compared with that which 
is written on the first sector of the disk cartridge 
to determine that the desired cartridge is mounted. 
If the identification is not the same, the Supervisor 
waits for operator intervention. The identifier 
must be left-justified in its field. 

This record also causes a skip to channel 1 
before it is printed on an 1132 Printer. 


ASM 


This record causes the assembler to be read into 
core storage for execution. The format is 


cc 


“N= 
Ny 
Tw 
pA 
An 
eaten 


~ Count — Disk 














Initialize a job sequence 
Read assembler into core for execution 
Read FORTRAN into core for execution 


Halt until START is pressed 





Change control record input from principal input unit 
to keyboard/console printer for succeeding monitor 
control records 





Change input mode from keyboard/console printer 
back to the principal unit for succeeding monitor 
control records 


Read DUP into core for execution 


Read and transfer control to mainline program 
0,1,N 


The assembler control records and source 
statements for the program to be assembled must 
follow the ASM control record. 


FOR 


This record causes the FORTRAN compiler to be 
read into core storage for execution. The format 
is 

cc 12 3 4 5 6 
/ [ b FOR 
The FORTRAN control records and source state- 
ments for the program to be compiled must 
follow the FOR control record. 


PAUS 


This record causes a wait to allow the operator to 
make setup changes. The format is 


cc 12345 6 7 
JfbPAUS 

The monitor operation proceeds as soon as 
PROGRAM START is pressed. 


TYP 


This record changes the control record input from 
the principal input unit to the keyboard/console 
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printer for succeeding monitor (only) control 
records. The format is 
cc Ke) 


45 
TYP 


Pe 2033 
//b 
TEND 

This record changes the input mode from the 
keyboard/console printer back to the principal 


input unit for succeeding monitor control records. 
The format is 


a Ww 
ab 
mo 


N= 
Np 
zon 
ON 


DUP 


This record causes the Disk Utility Program to be 
read into core storage for execution. The format is 


cc 


N= 
Noy 
ow 
of 
Cu 
07 O 


Control records for the Disk Utility Program must 
follow the DUP control record. 


XEQ 


——e 


This record causes the Loader to load a specified 
mainline program into core storage and to transfer 


control to it. The format is 


10 1 


cc 56789 1 12 13 14 15 16 17 18 19 20 
E Qb XX X X b L 


1234 2 
//o*X x YY Zb 


The mainline program XXXXX must be left- 
justified in columns 8-12. If XXXXX is in Disk 
System format, the Loader converts it to Core 
Image format. If columns 8-12 are blank, the 
mainline program presently stored in Working 
Storage (by FORTRAN, DUP, or the assembler) 
is converted and read into core and executed. 

A core map is printed during conversion if 
column 14 contains an L and the program is in 
Disk System format. This map includes the core 
loading address of the mainline program, the 


10 


names and execution addresses of all subroutines 
and subprograms included in the load, file 
allocations, if any, giving file number, sector 
address, and number of sectors in the file. Also, 
if L is specified, a core map is printed for any 
DSF program linked to under this execution. 

Columns 16-17 must contain the count of 
LOCAL, NOCAL, and FILES records which follow, 
if any (refer to Supervisor Control Records). This 
count is decimal, right-justified. 

DISK 0, 1, or N will be loaded with the program 
if column 19 contains 0, 1, or N, respectively. Any 
other character (including blanks) causes a special, 
shorter disk routine (DISKZ) to be loaded. This 
special version is intended for FORTRAN programs 
and those assembly-language programs which do 
not use the disk. 


Comments 


This record provides comments in the listing. It 
may not immediately follow an XEQ, DUP, ASM, 
or FOR record. The format is 


5 - 80 


comments 


c¢ 


+ 
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SUPERVISOR CONTROL RECORDS 


LOCAL 


LOCAL is an acronym denoting routines specified 
by the user to be loaded into a LOCAL overlay area 
as they are called. All subroutines desired by the 
user to be loaded on call at execution time must 

be designated by LOCAL records following the 

XEQ monitor control record. The format is 

as follows: 


cc 1 
*LOCALMLI,SUB1,SUB2 


where ML1 = name of a mainline program to be 
executed, and SUB1 and SUB2 are subroutines in 
the mainline program. 


Each mainline program (in the same XEQ subjob) 
that calls a subroutine to be loaded on call must 

have its own LOCAL record. The same mainline 
program may have more than one LOCAL record. 


For example: 


*LOCALMLI,SUB1,SUB2 
*LOCALML2,SUB3, SUB4 or 
*LOCALMLI ,SUB5 


*LOCALMLI,SUBI ,SUB2,SUB5 
*LOCALML2,SUB3,SUB4 


If the record ends with a comma, the next 
record is treated as a continuation. The mainline 
name is not repeated in a continuation, e.g. , 


_ *LOCALMLI,SUBI,SUB2, 
* LOCALSUBS 


If the mainline program is executed from Working 
Storage, the mainline name must be omitted by 
putting a comma in column 7, e.g., 


*LOCAL,SUBI, SUB2 


No embedded blanks are allowed in a LOCAL record. 


NOCAL 


NOCAL is an acronym denoting routines which, 
although not called anywhere in the core load, 
are to be included in the load, e.g. , debugging 
aids such as trace or dump routines. 


All subroutines which are to be loaded but are not 
called at execution time must be designated by 
NOCAL records following the XEQ monitor control 
record. The format is as follows: 


cc 1 


*NOCALMLI, SUBI ,SUB2 


NOCAL records are governed by the same rules and 
restrictions as LOCAL records. 


NOTE: The user must observe the following rules 
in LOCAL and NOCAL records: 


1. No routine can appear in a LOCAL record if it 
causes any of the other routines appearing 
in LOCAL records (for the same mainline pro- 
gram) to be called before the first LOCAL has 
returned control to the calling routine. Thus, 
a LOCAL cannot call another LOCAL, nor 
can it call a routine which causes a second 
LOCAL to be read into core and executed. 
For example, if A calls B and Bcalis C, 


and A is a LOCAL, then neither B nor C can 
appear on a LOCAL record for the same 
mainline program. 

2. Ifa given routine is designated a LOCAL, 
and the System Overlay scheme is employed, 
then this routine will be a LOCAL even though 
it might have been included in one of the 
System Overlays (SOCALs). 

3. No program which uses LOCALs or NOCALs 
can be stored in Disk Core Image Format 
(DCI). 

4. Only CALL-type subroutines, i.e., type 4 and 
type 6 subroutines, can appear on NOCAL 
records (see Appendix B). 

5. Ifa subroutine is designated a. LOCAL, it will 
be loaded as a LOCAL even if it is not 
referenced anywhere in the core load. 

6. The LOCAL information pertaining to any 
given XEQ record cannot exceed 640 words, 
counting all LOCAL names on the LOCAL 
records as two words and mainline program 
names as three words. The same rule 
applies to NOCAL information. 

7. Only types 3, 4, 5, and 6 subroutines can 
appear on LOCAL records (see Appendix B). 


FILES 





File numbers specified in FORTRAN DEFINE FILE 
statements can be equated to names of data files 

in the User area or Fixed area at execution time 
by means of a FILES record entered after an XEQ 
monitor control record or DUP control record 
STORECI. The format is as follows: 


cc | 


*FILES(FILEN, NAMEN), (FILEM, NAMEM) 


where FILEN and FILEM are the file numbers 
specified in FORTRAN DEFINE FILE statements, 
and NAMEN and NAMEM are names of previously 
defined disk storage data files. 

No embedded blanks are allowed. If the record 
ends with a comma, the next record is treated 
as a continuation, e.g., 


*FILES(FILEN, NAMEN), 
*FILES(FILEM, NAMEM) 


NOTE: The FILES information for a given XEQ 
record cannot exceed 640 words, counting the 
file numbers as one word and the file names as 
two words. 
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Any number of LOCAL, NOCAL, and FILES 


records can follow the XEQ monitor control 
record, but each type must be grouped 
together, e.g., 


*LOCAL 
*LOCAL 
*LOCAL 
*NOCAL 
*NOCAL 
*FILES 

*FILES 


The following is not permitted: 


*LOCAL 
*NOCAL 
*LOCAL 
*FILES 

*NOCAL 


STACKED INPUT ARRANGEMENT 


Input to the Monitor System consists of control 
records, source programs, object programs, and 
data arranged logically by job. 


The following points must be considered when 
arranging the input for any job. 


Ls 
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Any number of comments records can be 
inserted in front of (but not immediately 
following) DUP, ASM, FOR, or XEQ 
monitor control records. 

Any records other than monitor control 
records which remain after the execution of 
an ASM, FOR, or XEQ subjob are passed 
until the next monitor control record is 
read. After a DUP operation, records are 
passed until either a monitor control record 
or another DUP control record is read. 

If an error is detected in an assembly, 
FORTRAN compilation, or during loading 
from Disk System format, the resulting 
object program or any programs that follow 
within the job cannot be executed. Also, if 
an error is detected in an assembly, 
FORTRAN compilation, or during a loading 
from Disk System format during a 
STORECI function, all DUP functions are 
bypassed until the next valid ASM, FOR, or 
JOB record is read. 


4. If the FORTRAN compiler or the assembler 
encounters a monitor control record, control 
will be transferred to the Supervisor, i.e., 
the monitor control record will be trapped. 
The Supervisor will correctly analyze the 
record after the compilation or assembly has 
been aborted. DUP will not trap a monitor 
control record during a DUP operation (refer 


to DUP Control Records). 


The stacked input arrangement shown in Figure 4 
will compile, store, and execute both Programs A 
and B, providing there are no source program 
errors, and there is sufficient room in the Working 
Storage area (refer to Working Storage Area). A 
source program error causes the DUP STORE 
operation (refer to DUP Control Records) to be 
bypassed for that program, and all following XEQ 
requests preceding the next JOB record are 
disregarded. Thus, if the successful execution of 
one program depends upon the successful completion 
of the previous program, both programs should be 
considered as one job and the XEQ control records 
should not be separated by a JOB record. 

Figure 5 shows the stacked input arrangement for 
three jobs which are not dependent upon each other. 
Job A assembles, stores, and executes source 
program A. This job includes comments cards 

and a PAUS monitor control card to allow the 
operator to intervene. 

Job B calls in the Disk Utility Program, and 
stores object program B on disk. 

Job C compiles, stores, and executes FORTRAN 
source program C, 


THE LOADER 
The Loader has two basic functions: 


1. To prepare entire core loads (Disk System 
format loading). 

2. To bring core loads into core storage 
immediately before execution (Core Image 
format loading). This includes the restora- 
tion of COMMON, if any, between linked core 
loads. 


These two loading processes are described after 

a discussion of the origin which the Loader gives 

a particular core load, the object-time transfer 
vector, and system overlays (SOCALs). Disk 
System format and Core Image format are described 
in Appendix B. 














Figure 4, Example of Stacked Input (One Job) 


Origins for Core Loads 


The Loader origins relocatable mainlines (main 
programs) after the Disk I/O subroutine requested 
by the user on the XEQ control record. One of 
these disk routines is always in lower core, and 
no disk routine is included in any disk-stored core 
load. DISKZ is always used unless otherwise 
specified. The origins used by the Loader are 
shown below: 


// b XEQ b NAME B 


// b XEQ b NAME A 


Source Program A 


FORTRAN Control Records 


* STORE bbbbbbWSbbUAbbNAME B 


Source Program B 


FORTRAN Control Records 


* STORE bbbbbbWSbbUAbbNAME A 


Origin 
Disk I/O Version (hexadecimal) (decimal) 
DISKZ 1C2 450 
DISKO 260 608 
DISK1 370 880 
DISKN 438 1080 


The origins for absolute mainlines are not con- 
trolled by the Loader; however, such mainlines 
must be originated above the end of the Disk I/O 
version used. All references in a core load to a 
Disk I/O subroutine must be to the same one. 


Supervisor Program 
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Source Program C 


FORTRAN Control Records 


Object Program B 


Source Program A 


Assembler Control Records 


Figure 5. Example of Stacked Input (Three Jobs) 
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Object-time Transfer Vector 


In order to transfer to and from subroutines at 
execution time, the Loader builds two separate 
object-time transfer vectors: the CALL TV and 
the LIBF TV (see Figure 6). 

Each CALL TV entry is a single word containing 
the absolute address of a subprogram entry point; 
however, in the case of a LOCAL subprogram 
referenced by a CALL statement, the absolute 
address is the address of the corresponding 
Flipper Table entry instead of the subprogram 
entry point. 

Each LIBF TV entry consists of three words. 
Word one is the link word. Words two and three 
contain a branch instruction to the subprogram 
entry point; however, in the case of a LOCAL 
subprogram referenced by an LIBF statement, 
words two and three contain a branch instruction 
to the corresponding Flipper Table entry instead 
of the subprogram entry point. 

The first two LIBF TV entries are special 
entries, each three words long. The first entry is 
the Floating Accumulator (FAC). The address of 
the first word of FAC must be odd; therefore, if 
necessary, a dummy entry is made in the CALL 
TV to make FAC begin at an odd address. The 
second special entry is used by certain sub- 
routines to indicate overflow, underflow, and 
divide check. 

If SOCALs are used, the LIBF TV contains 
special entries for SOCAL subprograms referenced 
by LIBF statements. These entries transfer 
indirectly either to the referenced subprogram if 
the overlay containing the subprogram is 
presently loaded, or to the SOCAL Flipper in 
order to load the required overlay and transfer 


to the referenced subprogram (refer to System 
Overlays). 

The CALL TV does not contain entries for 
SOCAL subprograms referenced by CALL 
statements if SOCALSs are used. 


System Overlays (SOCALs) 


System Overlays (SOCALs) are created for any 
core load with a FORTRAN mainline program 
if the core load will not fit into core. The 
Loader selects certain subroutines used in the 
core load and writes them into Working Storage 
in either two or three groups (overlays). An area 
in core as large as the largest overlay is reserved 
for these subroutines. Whenever a subroutine in 
one of these overlays is required during program 
execution, the corresponding overlay is read 
from the disk into the overlay area in core (if it 
is not already in core). 
Overlays are constructed from the IBM sub- 
routine library according to type and subtype 
(described in Appendix B). The user can alter 
this design by changing the subtypes of the 
library subroutines, or by specifying a subtype 
for his own subroutines (refer to DUP Control 
Records - STORE). The two levels of SOCALSs 
are described in the following paragraphs. 
SOCAL Level 1 uses the following two overlays: 
1. Type 3, subtype 2 (arithmetics, e.g., FADD), 
and Type 4, subtype 8 (functionals, e.g., SIN). 

2. Type 3, subtype 3 (the non-disk FORTRAN 
Format subroutine SFIO, and the FORTRAN 
1/O subroutines, e.g., CARDZ), and Type 3, 
subtype 4 (the I/O conversion subroutines, 
e.g., HOLEB). 


Dummy one - word entry in CALL TV 
(if necessary) to ensure odd address 


for FAC 


Last First Disk Indicators FAC 


LIBF LIBF /O 


Last Second First 
CALL CALL CALL 


———— 


End of Core 
High Core 





at ) 


LIBF TV 


CALL TV COMMON 


ee 


Object - time TV 


Figure 6, Layout of Object-Time Transfer Vector Area 
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Level 1 reduces the core requirements by an 
amount equal to the total size of the smaller of 
these overlays. Approximately 15 words of extra 
linkage, however, are required. 

If core loads do not fit with Level 1, then 
Level 2, employing the following three overlays, 
is used: 


1. Same as (1) above. 

Same as (2) above. 

3. Type 3, subtype 1 (disk FORTRAN I/O 
subroutines SDFND and SDFIO). In addition, 
this overlay includes a 320-word buffer. 


i) 


Level 2 reduces the core requirements by an amount 
equal to the sum of the two smallest overlays, with 
approximately 15 words of extra linkage added. 

The overlays will not contain all available sub- 
routines of the specified types, but only those 
required by the core load. 

Since LOCALs take priority over SOCALS, ifa 
subroutine which would otherwise be in a SOCAL 
overlay is designated a LOCAL, it will appear as 
a LOCAL and not as part of a SOCAL. 

If a core load does not fit with Level 2 over- 
lays, core requirements may be reduced by 
additionally designating the following as 
LOC ALs: 


1. Subroutines not contained in any overlay. 

2. Subroutines contained in the largest overlay. 
This reduces the SOCAL overlay area re- 
quired in core. 


If the core load does not fit into core even with 
SOCALS, an error condition is indicated. An 
error condition is also indicated for core loads 
which do not fit and which have mainline pro- 
grams written in assembler language. 


Programs requiring system overlays cannot be 
stored in Core Image format (refer to Appendix B, 


Disk Core Image Format). 


Disk System Format Loading 


A core load is built from programs stored in Disk 
System format in either of two cases: 
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1. To execute the core load immediately (called 
as a result of an XEQ control record or a 
CALL LINK). In this case control must be 
passed to the Core Image format loading 
process at the termination of the Disk 
System format loading process. 


2. To store the core load in Disk Core Image 
format for future execution (called as a 
result of a DUP *STORECI control record - 
refer to DUP Control Records). In this 
case, control is returned to DUP, which 
initiated the process. 


In this type of loading, a mainline program (with 
its required subroutines) is converted from Disk 
System format to Core Image format. This 
includes the construction of the core image 
header record and the object-time transfer 
vector. Parts of the core load which are to 
reside below location 4096,, are stored in the 
CIB; parts of the core load which are to reside 
above location 40959 (if any) are placed directly 
into core storage. LOCALs and SOCALs which 
are a part of the core load are also processed and 
written out on Working Storage (following the last 
data file, if any). 


Core Image Format Loading 


In this loading process, the core load is read into 
core, except for the first sector. When loading a 
program immediately following its conversion from 
Disk System format, only the contents of the CIB 
are read into core (other parts of the core load are 
already in core). When loading a program which 
has previously been stored in Core Image format, 
both the sections above location 409519, if any, 

and below 40961, are read into core. The Skeleton 
Supervisor is given the information necessary to 
enable it to read in the first sector of the core 
load and to move the object-time transfer vector 
into its location. Control is then passed to the 
Skeleton Supervisor, and finally to the object 
program. 


The Disk Utility Program (DUP) is a group of 
routines designed to accomplish the following: 


e Allocate disk storage as required by each 
_ program or data file to be stored 


e Make these programs available in card or 
paper tape format 


e Provide printed status of the User area, 
Fixed area, and Working Storage area. 


e Perform various disk maintenance operations. 


The Disk Utility Program is called into operation 
by a DUP monitor control record. This record 
may be followed by any number of DUP control 
records to select the routines desired. The DUP 
control records are described in subsequent 
paragraphs. The character codes recognized 

by DUP are listed in Appendix D. 


Working Storage (WS) Indicator Word 


A WS Indicator Word in COMMA (0069) contains 
the disk block count of the program to indicate 
that a valid program is in Working Storage. 

Upon completion of an assembly or compila- 
tion, the WS Indicator Word is set to the disk 
block count of the program left in Working 
Storage in Disk System format. DUP can then 
be called upon to store or dump this program. 

When a DUP function is used to dump from the 
User area or the Fixed area, the WS Indicator 
Word is set to the disk block count of the program 
being moved. If the DUP function does not destroy 
any part of the program in Working Storage, the 
WS Indicator Word is not changed. It is set to 
zero by a store to the User area, a Cold Start, or 
a JOB monitor control record. 

If a DUP function which involves programs 
is requested from Working Storage while the WS 
Indicator Word is zero, a FROM field error 
message is given and the requested function is 
by passed. 


DISK UTILITY PROGRAM (DUP) 


* DUP CONTROL RECORDS 


DUP control records generally have the following 
format: 


cc 


1234567891011 1213 1415 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 
eH _ — a) ey 


* 


Asterisk DUP Func- "FROM" "TO" Program Name Count 
ince 1 tion Name Device Device (ce 21 - 25) Field 
(ce 2 ~ 12) Symbol Symbol 
(ce 13 - (ce 17 - 
14) 18) 


All fields except Count Field are left-justified. 
Each DUP control record contains an asterisk 
(*) ince 1. The DUP Function Name is in ce 2 - 
12. The "FROM" and "TO" symbols (ce 13 - 

14 and 17 - 18, respectively) specify the I/O 
devices and/or disk areas from and to which 
data is to be transferred. The following 
abbreviations must be used in the FROM and TO 
fields: 


Symbol Meaning 
PR Principal Print Device 
CD Card Reader (if the Disk Monitor 


System has been loaded from 
paper tape, CD is equivalent to 


PT) 
PT Paper Tape 
WS Working Storage, Disk 
UA User area, Disk 
FX Fixed area, Disk 


The count field is in decimal, right-justified. For 
data files, if the source is disk, this field 
specifies the number of sectors; if the source is 
cards, this field specifies the number of cards; 

if the source is paper tape, this field specifies 

the number of records. Unspecified portions of 
DUP control records can be used for comments. 

A "b' appearing in a column indicates that the 
column must be blank. 
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In the following paragraphs, each DUP function 
name is accompanied by a table showing the 
symbol combinations that may be specified in the 
FROM and TO fields. The tables also show the 
various formats that data can be in before the 
operation, and the corresponding formats to 
which this data is converted by DUP after the 
operation. These formats appear in parentheses 
after the FROM and TO symbols, and have the 
following meanings: 


DSF Disk System Format 

DCI Disk Core Image Format 
DDF Disk Data Format 

CDS Card System Format 

CDD Card Data Format 

PTS Paper Tape System Format 
PTD Paper Tape Data Format 
PRD Print Data Format 


These formats are shown in Appendix B. Table 3 
summarizes the DUP functions that move 
information from one area to another; Table 4 
summarizes all DUP control records; and 

Table 5 gives the restrictions on DUP functions 
when in temporary mode (JOB T). 


DUMP (Dump Program) 


The DUMP routine dumps (unloads) information 
from the User area, Fixed area, or Working 
Storage area to cards, paper tape, or printer, 
or from the User or Fixed area to the Working 
Storage area. The decimal number of disk 
blocks dumped is specified in the corresponding 
LET entry or in the WS Indicator Word. 


S CD PT PR WS 
(CDS) (CDD) (PTS) (PTD) (PRD) (DSF) (DDF) 








WS (DSF) Xx 









(DSF) 
UA (DDF) 


x x 
(DCI) Xx Xx X 
(DCI) x X 


The control record format is as follows: 


ce 


1234567891011 1213 1415 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 
AY ao) Cena epee ere 

*DUMPb "FROM" "TO" 
Symbol Symbol 


Program Name 
(required ex- 
cept for WS to 
PR) 
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NOTE 1: If the DUMP is from WS, and the WS 
Indicator is zero, a FROM field error message 
is given (refer to Appendix A). 


NOTE 2: When the DUMP is to cards, each card 
is checked to see that it is blank before it is 
punched (refer to Appendix A). 


NOTE 3: At the end of DUMP operations, all 
subsequent blank cards are selected into 
Stacker 2. 


DUMPDATA (Dump Data) 


The DUMPDATA routine dumps data from the User 
area, Fixed area, or Working Storage area to 
cards, paper tape, or printer, or from the User 
or Fixed area to the Working Storage area. The 
number of sectors to dump must be specified by 
the count field. This number of sectors will be 
dumped regardless of the length of the specified 
data file or program. 


CD PT PR WS ° 
(CDD) (PTD) (PRD) (DDF) 





The control record format is as follows: 


cc 


1234567891011 1213 1415 1617 18 19 20 21 22 23 24 25 26 27 28 29 30 


* DUMPDATAb "FROM" "TO" Program Name Sector Count 
Symbol Symbol (required ex- (when dump- 
cept for WS to ing from WS, 
PR) the sector 
count overrides 
the WS Indica- 
tor) 


NOTE 1: When the dump is to cards, each card 
is checked to see that it is blank before it is 
punched (refer to Appendix A). 


NOTE 2: At the end of DUMPDATA operations, all 
subsequent blank cards are selected into Stacker 2. 


(dnd) wesSor1g AWTHN ystd 


6T 

































ws cD PT PR 
(DSF) (DDF) (CDD) (CDS) (PTD) (PTS) (PRD) 


DUMP** DUMPDATA** | DUMPDATA** | DUMP** DUMPDATA** | DUMP** 


DUMP** DUMP** DUMP** 
DUMPDATA** | DUMPDATA** DUMPDATA** 


mnt ane a onto 


FX 
(DSF) (DDF) (DCI) 








(DSF) (DDF) (DCI) 





DUMP** 
DUMPDATA** 






oe 
in 
ian oe 
ho 
Es 
= 
Le 






DUMP** 


DUMPDATA** | DUMPDATA** DUMPDATA** 











(DSF) | STORE* 
STOREMOD 
WS 


STORECI 


DUMP** DUMP** DUMP** 

DUMPDATA** | DUMPDATA** DUMPDATA** 
DUMP** DUMP** DUMP ** DUMP ** 
DUMPDATA** | DUMPDATA** DUMPDATA** DUMPDATA** 






STOREDATA 


STOREDATA* 


DUMPDATA | DUMP DUMPDATA | DUMP DUMP 
DUMPDATA 
i DUMPDATA ae DUMPDATA 





STOREMOD 


ee) 
i a STORECI** eet | | 
ee 
eT 


(DDF) 
STOREMOD 
(CDD) STOREDATA* 


*Eliminates stored information from Working Storage 





**Replaces current contents of Working Storage 


Table 3. Movement of Information Using DUP Control Records 


Table 4. Summary of DUP Control Records 


13 #14 #15 #+%16 #%@I7 #18 #+19 20 21 22. 23 24 25 26 27 28 29 30 


Sector Count—— 


—— Count of 'Files'— 
Records 


—Sector, Card, or— 
Record Count 


—_ WS— UA or FX 
Print contents of LET on principal printing unit) 
g 


(Write sector addresses in Working Storage area) 


— Cylinder — 
Count 





Table 5. Restrictions on DUP Functions in Temporary Mode (JOB T) 


The control record format is as follows: 


cc 





DUMP mone 1234567891011 1213 1415 1617 18 19 20 21 22 23 24 25 
DUMPDATA None SS Sa = — 
*STORE "FROM" = "TO" Program Name 
STORE None Symbol Symbol (required ex- 
STOREC! To UA only Specifies subtype (left- ai: storing 
justified) of type 3 & 4 - 
STOREDATA To UA and WS only sibproaréms Gee Aapera 
STOREMOD Not allowed ali Bs Thletiel ls 
blank unless special 
DUMPLET None SOCAL handling is 
desired. 
DWADR Not allowed 
DELETE Not allowed 
DEFINE FIXED AREA Not allowed 
DEFINE VOID ASSEMBLER Not allowed NOTE: If the STORE is from WS, and the WS 
DEFINE VOID FORTRAN Nisiajlowea Indicator is zero, a FROM field error message 
is given (refer to Appendix A). 
STORE STORECI (Store Core Image) 
The STORE routine stores programs from cards, The STORECI routine stores programs from cards, 
paper tape, or the Working Storage area to either paper tape, or the Working Storage area to either 
the User area or Working Storage area-on disk. the User area or Fixed area on disk. The 
programs are converted to Disk Core Image 
format (see Appendix B), hence they are loaded 
UA WS : 2 
(DSF) (DSF) into core storage faster than programs stored 
oD CDS) 3 5 otherwise. The STORECI function uses the 
WS (DSF) Xx Loader to convert the Disk System format pro- 
PT (PTS) x x 


gram to core image. After control is returned to 
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DUP, the core image header and that portion of the 
program (excluding Disk I/O) that resides below 
core location 409619 are stored from the CIB, and 
that portion of the program above core location 
409519, if any, is stored from core. No 
COMMON area is stored, but the transfer vector 
is included. STORECI always requests a map 
from the Loader since it will not be available when 
the program is loaded from Core Image format. 


Eon) wen 


CD (CDS) X X 
WS (DSF) X X 
PT (PTS) 

















The control record format is as follows: 


cc 


1234567891011 1213 1415 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 


*STORECI 
See "FROM" "TO" Program Name See Note 2 
Note 1 Symbol Symbol (always re- 
quired) 


NOTE 1: Column 9 is used to specify the Disk I/O 
routine required by this program, 


0 = DISKO 

1 = DISK1 

N = DISKN 
Others = DISKZ 
(including blank) 


NOTE 2: Count Field (cc 27-30) contains decimal 
count of *FILES records that are required for 
program being stored. This number of records 
will be read before the normal STORECI function 
is performed. 


NOTE 3: Data files named in the *FILES record 
must be in the Fixed area. 


NOTE 4: If the STORECI is from WS, and the WS 
Indicator is zero, an error message is given 
(refer to Appendix A). 


STOREDATA (Store Data) 
The STOREDATA routine stores data from cards, 


Working Storage area, or paper tape to the User 
area, Fixed area, or Working Storage area, Each 


data file starts at the beginning of the next available 
sector and the length is defined in whole numbers 
of sectors. 


UA FX WS 
(DDF) (DDF) (DDF) 


WS (DDF) x x 
CD (CDD) Xx Xx x 
PT (PTD) x x x 


The control record format is as follows: 


cc 


1234567891011 12131415 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 


"FROM" "TO" Program Name see NOTE 
Symbol Symbol (not required 

for CD to WS 

or PT to WS) 


*STOREDATA 


NOTE: Count Field (ce 27-30) must contain one of 
the following in decimal: 

Sector count if source is WS (overrides the WS 
Indicator), card count if source is CD, record 
count if source is PT. 


STOREMOD (Store Modify) 


The STOREMOD routine moves a program or data 
from Working Storage to the User area or Fixed 
area, overlaying an item specified by name in the 
User area or Fixed area. This permits the user 

to modify an item in the User or Fixed area 
without changing its name or relative position. The 
length of the item in Working Storage (in disk 
blocks or sectors, as appropriate) cannot be 
greater than the length of the item it overlays. If 
the name is not found in LET/FLET, the STORE MOD 
control record functions as a STORE control re- 


cord. 
Keon) UA 





The control record format is as follows: 


cc 


1234567891011 12131415 16 17 18 19 20 21 22 23 24 25 
*STOREMOD b 
Ws UAor 
FX 


Program Name 


Disk Utility Program (DUP) 21 


DUMPLET (Dump Location Equivalence Table) 


The DUMPLET routine dumps the contents of the 
Location Equivalence Table (LET) to the principal 


printing unit (see Figure 7). 


If a Fixed area has 


bee@ defined, the Fixed Location Equivalence 

Table (FLET) is printed as a separate table 

following LET (see Figure 8). 
The control record has the following format: 


Line 1]: 


Line 2: 

(Entries in comma — 
base and adjusted 
addresses — see 
Appendix E) 


Line 3; 
(LET sector header 
words) 


cc 


12345678 
eS) ————Y 


*DUMP LET 


LET 


XXXX XXXX 
ee ee 


Work Storage starting 
sector address 


XXXX 
ea ES | 


Relative sector 


XXXX XXXX 
ee 


Disk block address 
available for next User 
area program or data file 


XXXX 
4 


0 if last sector 


Number of disk 


DWADR (Disk Write Address) 


The DWADR routine writes sector addresses on 
every sector in the Working Storage area. It 
restores correct disk sector addresses in the 
Working Storage area if they have been modified 
during execution of a user's program. Previous 
contents of the area are overlaid. Following the 
address word, the first two words of each sector 
contain D120 2663 (in hexadecimal). The next 

238 words have the format Annn, where nnn is the 
hexadecimal address of the sector; the last 80 


XXXX XXXX 
else See 


Number of words used 
by LET 


XXXX XXXX XXXX 
_— = —_—__~ 


Words available Sector address of 


in this sector 


next sector 


number (0-7) of LET; other- blocks referenced by 


Line 4 


o 


Linen 


Line 4 


NOTE 1: 
NOTE 2: 
NOTE 3: 


NOTE 4: 


wise non-zero 


XXXX 


XXXXX : ; 


Program name Program size 


(disk blocks) 


XXXXX 
esteitarh | 


Program name 


XXXX 
a 


Program size 


(disk blocks) 


XXXXX 
ores 


Data file name 


XXXX 
haiti) 


Data file size 
(disk blocks) 


NOTE 5: All numbers are in hexadecimal. 


Figure 7, Output Format from a DUMPLET Operation (LET) 


22 


XXXX 
Starting address 
(disk blocks) 


XXXX 
Se 
Starting address 

in User area 


(disk blocks) 


XXXX 
— 
Starting address 

in User area 


(disk blocks) 


this sector of LET 


XXXX 
Neapanay 


Execute core 
address 
(absolute) 


0000 


for more entries 


KAXXX 
UH — 


Program load 
address in 
core 


0000 


Reserved 


Words 4, 5, and 6 of the printout reflect the actual LET entry words 4, 5, and 6. 


XXXX 
eLaaaRANS 
Actual word count 
of core image pro- 

gram (includes a 


60-word header) 
XXXX 
uUu~--_—_" 


Data file size 


(disk blocks) 


Program size is the disk block count of the program, This corresponds to word 3 of the actual LET entry (see Appendix G), 


(0 if last sector) 


For DSF 


programs 


For core 
image 
programs 





The header words of the first sector are printed on line 3. Additional header words are printed for each foliowing sector as required, 


For multi-entry subroutines, the Program Size and Starting Address fields for entry points subsequent to the first one will be blank. 


words are zeros. The control record has the 
following format: 
ce 


123456 
a) 


*DWADR 


DELETE (Delete Program or Data) 


The DELETE routine deletes a specified program 
or data file from the User or Fixed area. The 
LET or FLET entry is deleted and if the program 
was in the User area the User area is repacked. 
A 1DUMY entry is created to replace deleted 
FLET entries. Although no packing of the 

Fixed area occurs, dummy entries in FLET are 
packed so that two are not adjacent but are 
consolidated. The control record has the 
following format: 


ce 


1234567891011 12 13 14 15 16 17 18-19 20 21 22 23 24 25 
uu ~—-—~ ——————__Y 
*DELETE Name 


Line 1: FLET 


DEFINE (Define) 


The DEFINE routine defines variable parameters 
required by the Monitor System. The following 
options are available: 


e Define or increase the size of the Fixed area 
e Delete the assembler from the system 
e Delete FORTRAN from the system 


If the user wishes to delete the assembler or 
FORTRAN, he must do so before he defines a 
Fixed area. 

Within the Fixed area, programs can be 
stored at fixed disk locations. This area is 
defined as a whole number of cylinders, with a 
minimum of two, and it may be incremented 
(but not decreased) by a whole number of 
cylinders at any time. Defining or increasing the 
size of the Fixed area reduces disk storage 
available for User and Working Storage areas by 
the same amount. 


Line 2: XXXX XXXX 
eer eS 

(Entries in 

COMMA) Sector address of CIB Sector address of FLET Number of words used by FLET 


XXXX XXXX 
a 


XXXX XXXX 
lineata acai icdictey 


Line 3: XXXX XXXX XXXX XXXX XXXX 
(FLET sector eat are eee pa cla Cree ee oat 
header words) Relative sector 0 if last sector of Number of disk blocks Words available in this 
number (first FLET; otherwise referenced by this sec- sector for more entries 
sector is non-zero tor of FLET . 
numbered 16) 


Sector address of next 
sector (0 if last sector) 


FLET entries are the same as for LET except that DSF programs do 
not appear in the Fixed area; therefore, no three-word entries 
appear in FLET. 





NOTE 1: All references are in disk blocks unless otherwise indicated, 


NOTE 2; The header words of the first sector are printed on line 3, Additional header words are printed for each following sector as required; 
there is a header for each 52 FLET entries. 


NOTE 3: Program size is the disk block count of the program, This corresponds to word 3 of the actual FLET entry (see Appendix G). 
NOTE 4: Words 4, 5, and 6 of the printout reflect the actual FLET entry words 4, 5, and 6, 


NOTE 5: All numbers are in hexadecimal. 


Figure 8. Output Format from a DUMPLET Operation (FLET) 


Disk Utility Program (DUP) 23 


Deleting the assembler and/or FORTRAN packs 
the remaining information on the disk, thus 
increasing disk storage available for User and 
Working Storage areas by the amount occupied by 
the deleted programs (see Figure 2). 


The control record formats are as follows: 


To Define the Fixed area - 


ce 


1234567891011 1213 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 
ae) 


*DEFINEbF IX ED bAREA NNNN 


where NNNN = positive cylinder count in 
decimal, right-justified, 
specifying the initial size of 
Fixed area (minimum of 2 
cylinders) or an increment 
to the Fixed area. 


NOTE: The first cylinder of the first DEFINE 
FIXED AREA is used for FLET. 


To Delete the Assembler - 


cc 


1234567891011 12 13 1415 16 17 18 19 20 21 22 


*DEFINEbVOIDbASS EMBLER 


To Delete FORTRAN - 


cc 


1234567891011 1213 1415 16 17 18 19 20 


*DEFINEbVO!1DbFORTRAN 


EDIT (to recall system loader) 


The *EDIT control record is used only by DUP to 
recall the System Loader, which initially loads 
the system into disk storage. The control 
record has the following format: 


cc 


12345 


*EDIT 


NOTE: This record must not be used by the user. 
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DUP MESSAGES 


Each DUP control record is printed at the time it 
is read, thus signaling that DUP has control and 
will remain in control until the next monitor 
control record is properly read. When a 
requested DUP function has been successfully 
completed, the following two-word exit message 
is printed in hexadecimal: 


Word 1: Disk block address of program or disk 
area that has been processed. 
Word 2: Number of disk blocks involved. 


For the DUP functions listed below, these words 
contain the following information (all addresses 
and lengths are given in disk blocks): 

DUP Function Information Printed 
DUMP, STORE, Program address* and 


STORECI, STOREMOD, program length** 
DELETE 


DUMPDATA, 
STOREDATA 


Program address and 
decimal sectors or 
records specified con- 
verted to disk blocks 
DUMPLET - (LET) User area address and 
User area length 
DUMPLET - (FLET) Fixed area address and 
Fixed area length 


DWADR Working Storage address 
and Working Storage 
length 


DEFINE FIXED AREA Fixed area address 
and size 


DEFINE VOID 
ASSEMBLER 


Former address and 
size of assembler 


DEFINE VOID 
FORTRAN 


Former address and 
size of FORTRAN 


If the above words are not printed, the DUP 
function was not successfully completed. 


* If storing or dumping from Working Storage, the 
address of Working Storage is printed. 

**Length is the third word of LET/FLET entry 
(see Appendix G). 


The DUP error messages are described in 
Appendix A, 


DUP OPERATING NOTES 


DUP functions should not be interrupted before the 
exit message is printed, since the status of LET/ 
FLET, COMMA, and DCOM may be in an inter- 

mediate unusable state (see DUP Waits and Loops 


in Appendix A). 

Some DELETE functions may take several 
minutes since they may have to pack much of disk 
storage. These long DELETE and DEFINE 
functions must be allowed to complete their 
respective operations. 

Control can be returned to the DUP section 
that reads DUP and monitor control records by 
manually branching to core location 0276. 


Disk Utility Program (DUP) 
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ASSEMBLER 


‘The language for the monitor assembler is de- 
scribed in the publication IBM 1130 Assembler 
Language (Form C26-5927). Therefore, only a 
general description of the operation and the control 
records for the monitor assembler are described 
in this section. 

The monitor assembler cannot be operated in- 
dependent of the Monitor System; however, the 
assembler can be deleted from the Monitor System 
if desired, 

A monitor control record with the pseudo-op 
ASM is used to call the assembler into operation. 
The assembler reads the source program, in- 
cluding control records, from cards or paper tape. 
After assembly, the object program resides in the 
disk Working Storage area, and can be called for 
execution with a monitor XEQ control record, or 
it can be stored in the User or Fixed area with a 
DUP STORE or STORECI operation or punched 
as a binary deck or tape with a DUP DUMP opera- 
tion, 


ASSEMBLER CONTROL RECORDS 
Assembler control records are used to specify 


assembly options and to provide input to the 
assembly process for certain types of source 


Table 6. Summary of Assembler Control Records 


decks. Assembler control records can be either 
card or paper tape. 

All assembler control records have the following 
format: 


Column 1: * 
2-71: Option 


Assembler control records can be written in 
free form, but at least one blank must separate 
the last character in the operation and the first 
character of any comments or numeric field. 

Assembler control records and their meanings 
are listed below. A summary is contained in 
Table 6. 


*TWO PASS MODE 


The source deck (or tape) must be read twice. 
TWO PASS MODE must be specified when: 


1. The user desires a list deck to be punched (see 
LIST DECK and LIST DECK E), 

2. One pass operation cannot be performed be- 
cause intermediate output (source records) 
fill the Working Storage area of disk. 
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*TWO PASS MODE 


*LIST 

*LIST DECK 

*LIST DECK E 

*PRINT SYMBOL TABLE 
*PUNCH SYMBOL TABLE 
*SAVE SYMBOL TABLE 
*SYSTEM SYMBOL TABLE 
*LEVEL n 

*FILE n 


*COMMON n 


Read source deck twice; must be specified when LIST DECK or LIST DECK E is specified, or when intermediate 
output fills Working Storage 


Print a listing on the principal printing device 

Punch a list deck on the principal I/O device (requires TWO PASS MODE) 

Punch only error codes (cc 18-19) into source program list deck (requires TWO PASS MODE) 
Print a listing of the symbol table on the principal printing device 

Punch a list deck of the symbol table on the principal |/O device 

Save symbol table on disk as a System Symbol Table 

Use System Symbol Table to initialize symbol table for this assembly 

n = interrupt level number. Required for ILS subroutines 


n = number (decimal) of sectors of Working Storage required at object time by the program being assembled 


n = length of COMMON in words (decimal) 





*LIST 


A printed listing is provided on the principal 
printing device (console printer or 1132 Printer), 
The format of the printed listing corresponds to 
that of the list deck (see Figure 9). 


*LIST DECK 


A list deck is punched on the principal I/O device 
(card or paper tape). This option requires two 
passes (TWO PASS MODE). The list deck format 
is shown in Figure 9. In cards, object information 
is punched into columns 1-19 of the source deck 

in pass 2 to make the list deck. In paper tape, the 
list tape punched is similar to the input tape, but 





Second Word of 
the Assembled 


Relocation Indicators; 


Col. 7 is Blank for One- 


Word Instructions or DC Code 
or 
Exponent for an 
XFLC Statement. 


ty | f4isfetzfeloy | fr2iis] | pefizfiefisfaojar] | | |25j26jz7]_ | {3ofsi{s2]3s}sajas] | | ft | | 


Blank Blank Blank 
Address of the First Word of Error Flags, 
Instruction; the Assembled if any 
Address Code * 
Assigned to 
the Label, if any 


Label Op Code 


with 20 frames added to the beginning of each record 
corresponding to card columns 1-20. 


*LIST DECK E 


Same as LIST DECK except no object information 
other than errors (positions 18-19) are punched. 


*PRINT SYMBOL TABLE 


A printed listing of the symbol table is provided on 
the principal printing device (console printer or 
1132 Printer). Symbols are grouped five per line. 
Multiply-defined symbols are preceded by the 
letter M; symbols with absolute values in a relo- 
catable program are preceded by the letter A. The 
M and A flags, however, are not counted as 
assembly errors. 







Tag 






Operands 


* For EBC Statements: Col. 9-12 Contains the Number of EBC Characters 


For BSS and BES Statements, Col. 9-12 Contains the Number of Words 


Reserved for the Block. 


Figure 9, List Deck Format 


PT TTP et ETT TT ETT EE EE EE efi} PT Teo} 
: —~4«“-——————“ 





IBD and Sequence 
Wiank Number, if any 
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*PUNCH SYMBOL TABLE 


A list deck of the symbol table is punched on the 
principal I/O device (card or paper tape). The 
record format is the same as for PRINT SYMBOL 
TABLE. This option may be advantageous if off-line 
card-to-printer or paper tape-to-printer facilities 
are available. 


*SAVE SYMBOL TABLE 


The symbol table generated in this assembly is 
saved on the disk as a System Symbol Table. The 
System Symbol Table is saved until the next SAVE 
SYMBOL TABLE control record causes a new 
assembly-generated symbol table to replace it. 
This control record is also used with the SYSTEM 
SYMBOL TABLE control record to add symbols to 
the System Symbol Table. The SAVE SYMBOL 


TABLE option requires this assembly to be absolute, 


If any assembler errors are detected, or if the 
symbol table exceeds the allowable size of the 
System Symbol Table - 100 symbols - the symbol 
table will not be saved as a System Symbol Table, 
and an assembler error message will be printed 


(refer to Appendix A, Assembler Error Messages). 


*SYSTEM SYMBOL TABLE 


Before assembly begins, the System Symbol Table 
(previously built by a SAVE SYMBOL TABLE 
assembly) is copied into the symbol table for this 
assembly. This control record is used when it is 
desired to refer to symbols in the System Symbol 
Table without definition of those symbols in the 
source program, or together with the SAVE 
SYMBOL TABLE control record when it is desired 
to add symbols to the System Symbol Table. All 
symbols in the symbol table from the System Symbol 
Table will have absolute values. 


*LEVELbn 


This control record is required for the assembly 
of an ILS routine. n= A decimal interrupt level 
number (0-5), If the device operates on two levels 
of interrupts (1442 Card Read Punch), two LEVEL 
control records are required. At least one blank 
must separate the word LEVEL and the interrupt 
level number. 
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*FILEbn 


n = Number of sectors (decimal) of the disk Working 
Storage area required at object time by the pro- 
gram being assembled. These sectors will be 
reserved at the beginning of Working Storage before 
any LOCALs or SOCALs are stored, This control 
record is used only when assembling a relocatable 
mainline program. At least one blank must separate 
the word FILE and the number of sectors. 


*COMMONbn 


n = Length of COMMON in words (decimal). This 


allows a COMMON area to be saved in linking from 
a FORTRAN mainline program to an assembly 
mainline and linking back to a FORTRAN mainline. 
At least one blank must separate the word COMMON 
and the decimal number. 


ORIGIN OF SOURCE PROGRAM 


The origin of a relocatable source program will 
always be at relative zero unless otherwise specified 
in the source program. 

The origin of an absolute source program, if 
not otherwise specified, will be at the end of the 
disk routine DISKN (location 0438). If the program 
will use another disk routine, the origin may be set 
lower to correspond to the proper disk routine. If 
no disk routine is used, the origin may be set to the 
end of the disk routine DISKZ (refer to Origins for 


Core Loads). 


ASSEMBLER PAPER TAPE FORMAT 


The paper tape input to the assembler is punched on 
PTTC/8 tape, one frame per character. The format 
of the tape control records is the same as the card 
format. The format of the symbolic program tape 
records is the same as the card format except for 
the following: 


1, The tape does not contain preceding blanks 
corresponding to card columns 1-20. 

2. The tape does not contain blanks or data 
corresponding to card columns 72-80. 

3. Trailing blanks need not be punched. Therefore, 
up to 51 characters. (corresponding to card 
columns 21-71) can appear in the tape record. 


Tape records are separated by NL (new line) 
characters (code DD). The delete character (code 
7F) is ignored whenever it is read, but the reader 
stop character (RS, code 0D) causes the program 
reading the tape to wait and start reading again 
when PROGRAM START is pressed. The case shift 
characters (codes 0E, 6E), when required, are not 
considered to occupy a space in the format. 


ASSEMBLER MESSAGES AND ERROR CODES 


Appendix A contains thé assembler error messages 
printed during operation of the 1130 Monitor. If 
LIST DECK or LIST DECK E is specified, the error 
detection codes shown in Table 7 are punched in 
columns 18 and 19. For the first error detected in 
each statement the assembler stores and then punches 
the code in column 18; the code for a second error 
is stored, overlayed by any subsequent errors, and 
punched in column 19, Thus, if more than two 
errors are detected in the same statement, only 
the first and last are indicated. 

At the end of the assembly, a message is printed 
indicating the number of assembly errors detected 
in the source program. Since no more than two 
errors are flagged per statement, the error count 
may exceed the actual number of flags. 

If symbol table overflow exceeds 32 sectors in 
Working Storage, an assembler error message is 
printed (refer to Appendix A). The maximum size 
of the symbol table (including overflow) and, hence, 
the maximum number of symbols that can be de- 
fined in a program is determined by the size of 
core storage as indicated below: 





Size of Core Storage (words) 


Type of Assembly 4096 8192 
With Listing 3502 4867 
One Pass, No Listing 3574 4940 
Two Pass, No Listing 3609 4974 


ASSEMBLER OPERATING PROCEDURES 


Card Input 


The source deck (including assembler control 
cards) can be assembled as part of a job, or it 
can be assembled as a separate job. In either 
case, the source deck must be preceded by a 
ASM monitor control record. 


Table 7. Assembler Error Detection Codes 


Address Error 

Attempt made to specify dis— 
placement field, directly or 
indirectly, outside range of 
—-128 to +127, 


Condition Code Error 
Character other than +, —, Z, 
E, C, or O detected in first 
operand of short branch or 
second operand of long BSC, 
BOSC, or BSI statement. 


Format Code Error 

Character other than L, |, X, 
or blank detected in col. 32, 
or Lor | format specified for 
instruction valid only in short 
form. 


Label Error 
Invalid symbol detected in label 
field. 


Multiply Defined Label Error 
Duplicate symbol encountered 
in operand, 


Relocation Error 

Expression does not have valid 
relocation, 

Non-absolute displacement 
specified. 

Absolute origin specified in 
relocatable program. 
Non-absolute operand specified 
in BSS or BES. 
Non-relocatable operand in 
END statement of relocatable 
mainline program. 

ENT operand non-relocatable. 


Syntax Error 

Invalid expression (e.g., invalid 
symbol, adjacent operators, 
illegal constant) 

Illegal character in record, 


Main program entry point not 
specified in END operand. 
Incorrect syntax in EBC state— 
ment (e.g., no delimiter in 
card column 35, zero character 
count). 

Invalid label in ENT or ISS 
operand. 


Tag Error 

Card column 33 contains 
character other than blank, 0, 
1, 2, or 3 in instruction 
statement. 


Undefined Symbol 
Undefined symbol in expression 


Op Code 


Unrecognized 


SS, ILS, ENT, LIBR, SPR, 
EPR, or ABS incorrectly placed. 


Displacement set to zero 


Displacement set to zero 


Instruction processed as if L 
format were specified, unless 
that instruction is valid only in 
short form, in which case it is 
processed as if the X format 
were specified 


Label ignored 


First occurrence of symbol in 
label field defines its value; 
subsequent occurrences of 
symbol in label field cause a 
multiply defined indicator to be 
inserted in symbol table entry 
(Bit O of first word), 


Expression set to zero 
Displacement set to zero 
Origin ignored 

Operand assumed to be zero 


Card columns 9-12 left blank; 
entry assumed to be relative 
zero 

Statement ignored 


Expression set to zero 


If illegal character appears in 
expression, label, op code, 
format, or tag field, additional 
errors may be caused. 

Card columns 9—12 left blank; 
entry assumed to be relative 
zero, Card columns 9-12 not 
punched; address counter 
incremented by 17, 


Statement ignored 


Tag of zero assumed 


Expression set to absolute zero 


Statement ignored and address 
counter incremented by 2. 
Statement ignored 
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In most cases, the source deck is passed 
through the 1442 Card Read Punch only once. If 
the assembly is part of a stacked job, the 


assembly proceeds without operator intervention. 


If the END card is the last card in the stack, 
when the reader goes not ready, press reader 
START to process the last card. 

In some cases it may be necessary to 
assemble in the two-pass mode, that is, pass 
the source deck through the 1442 Card Read 
Punch twice. If a copy of the source deck is 
placed behind the original, the source deck will 
be read twice, and a stacked job is again 
possible even when in the two-pass mode. 

It is important to note that when a deck is 
being assembled in two-pass mode, the 
assembler is ready to read another card as soon 


as Pass 1 processing of the END card is completed. 


Therefore, a monitor control record must not 
follow the END card the first time (or the first 
END card if the deck has been copied), or the 
assembler will trap this record, terminating 
the assembly and returning control to the 
Supervisor. 


If the deck is not copied, the END card should 


be the last card. Press reader START to 
process the last card and complete Pass 1. The 
assembler will then try to begin reading cards 
for Pass 2, therefore the source deck (with its 


control cards) should be removed from the stacker 
and placed in the hopper. Pressing reader START 


will continue Pass 2 of the assembly. The card 
reader will go not ready when all cards but the 


END ecard have been read. Press reader START 


to process the END card and complete the 
assembly. Operation is continuous from Pass 1 


to Pass 2 if the source deck is replaced behind the 


END card from the stacker during Pass 1. 
If the *PUNCH SYMBOL TABLE assembler 


control card is used, sufficient blank cards must 


be placed after the END card and before the next 
monitor control record in the stacked job. In 
estimating the number of blank cards required, 
allow one card for each five symbols used in 

the source deck. Unnecessary blank cards will 
be passed to the next monitor control record. 


Paper Tape Input 


Most of the procedures for card input are also 
applicable to paper tape input. 
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If the assembly is performed in the one-pass 
mode, operation is continuous, and control is 
returned to the Supervisor which will then pass 
any delete codes between the assembler and the 
next monitor control record. The assembler 
will also pass any delete codes that may occur 
between records of the source program. 

When it is necessary to assemble in the two- 
pass mode, one of the following techniques may 
be used: 


1. Have the stacked job tape contain two copies 
of the source program. The assembler will 
simply begin reading the copy after the 
original has been read in Pass 1. 


2. Assemble outside of the stacked job tape. 
The job tape, or a separate strip containing 
an ASM monitor control record serves to 
bring the assembler’ into core. A separate 
source program tape (including assembler 
control records) should then be readied on 
the paper tape reader, and the assembler 
will read this tape and complete Pass 1. 
Ready the source tape again and the 
assembler will complete Pass 2. A stacked 
job tape can now be readied again on the 
paper tape reader, and the Supervisor will 
continue with the stack. 


3. The assembly of a program may start in one- 
pass mode and then be changed to two-pass 
mode (see Assembler Error Messages, 
Appendix A). The assembler will wait, and 
pressing PROGRAM START continues the 
assembly in Pass 1 of two-pass mode. If this 
assembly is part of a stacked job, operator 
intervention is necessary to prevent the 
assembler from reading the monitor control 
record which follows the END record 
(applicable to card input also). When Pass 1 
intermediate output may fill Working Storage, 
it is recommended that sufficient length of all 
delete codes be punched into the tape after the 
END statement and before the next monitor 
control. When the assembler is reading the 
delete codes following the END record, the 
operator should press PROGRAM STOP, and 
manually reposition the tape at the beginning 
of the source program. When the tape is 
positioned, press PROGRAM START to con- 
tinue Pass 2 of the assembly. 


When punching a list tape (* LIST DECK or 
*LIST DECK E), first create a leader in the 
punched tape by holding down FEED and DELETE on 
the punch (press DELETE before FEED and release 
FEED before releasing DELETE). The same 
procedure should be used to create a trailer 


following the last record punched by the assembler. 


When the paper tape reader or punch is not 
ready, the assembler will wait at location 0041 
with 3000,g displayed in the accumulator. Ready 
the punch or reader, and press PROGRAM START 
to continue. 


Assembler 


31 


FORTRAN COMPILER 


The language for the Monitor FORTRAN compiler 
is described in the publication IBM 1130 FORTRAN 
Language (Form C26-5933). Therefore, only a 
general description of the Monitor FORTRAN 
compiler operation is. contained here. 

The FORTRAN compiler cannot be operated 
independent of the Monitor System; but, if 
desired, the compiler can be deleted from the 
system, 

A monitor control record having the pseudo-op 
FOR is used to call the FORTRAN compiler into 
operation. The compiler reads the source program 
from cards or paper tape. After compilation, the 
object program resides in the disk Working Storage 
area, and can be called for execution with a monitor 
XEQ control record, loaded to the User or Fixed 
area with a DUP STORE or STORECI operation, 
or punched as a binary deck or tape with a DUP 
DUMP operation. All FORTRAN programs are 
compiled in relocatable format. 

For 1130 FORTRAN I/O logical unit 
definitions, the I/O unit numbers are permanently 
set as described in Table 8. 


FORTRAN CONTROL RECORDS 


Before a FORTRAN program is compiled, the user 
can specify certain options by means of control 
records which must precede the source program 
and can be in any order. The IOCS and NAME 
control records can be used only in mainline 
programs; the others can be used in both mainline 
programs and subroutines. 


Table 8. I/O Logical Unit Designations 


Kind of Record Size 
Device Transmission Allowed 


Console printer Output only 


1442 Card Read Input/output 80 


Punc 


1132 Printer Output only 1 carriage 
control + 120 


1134-1055 input/output 80, plus max. of 

Paper Tape 80 case shifts for 

Reader/Punch PTTC/8 code, 
plus NL code. 


Keyboard Input only 80 
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All FORTRAN control records have the following 
format: 


Column 1: * (asterisk) 
2-72: Option 


FORTRAN control records can be written in 
free form, no comments allowed. Any 
unrecognizable control records are considered 
as comments control records. 

FORTRAN control records and their meanings 
are listed below. A summary is contained in 
Table 9. 


*10CS (CARD, TYPEWRITER, KEYBOARD, 1132 
PRINTER, PAPER TAPE, DISK) 


This record is required to specify any I/O device 
that is to be used during execution of the program; 
however, only the devices required should be 
included. Because the *10CS record can appear 
only in the mainline program, it must include all 
the I/O devices used by all FORTRAN subprograms 
that will be called. The device names must be in 
parentheses with a comma between each name. 

FORTRAN subprograms written in assembly 
language can use any I/O subroutines for any 
device that is not mentioned in *IOCS and that is 
not on the same interrupt level as a device in 
*IOCS. Otherwise, the subprograms must use 
FORTRAN I/O routines (CARDZ, PAPTZ, PRNTZ, 
WRTYZ, TYPEZ, DISKZ). 


*LIST SOURCE PROGRAM 


The source program is listed as it is read in. 


*LIST SUBPROGRAM NAMES 
The names of all subprograms (including 


EXTERNAL subprograms) called directly by the 
compiled program are listed. 


*LIST SYMBOL TABLE 
The following items are listed: 
e Variable names and their relative addresses 


e Statement numbers and their relative addresses 


Table 9. Summary of FORTRAN Control Records 


* NAME XXXXX 


* IOCS (CARD, TYPEWRITER, KEYBOARD, 1132 PRINTER, PAPER TAPE, 
DISK) 


**header information to be printed on each compiler output page 
* ONE WORD INTEGERS 
* EXTENDED PRECISION 

ARITHMETIC TRACE 

TRANSFER TRACE 

LIST SOURCE PROGRAM 

LIST SUBPROGRAM NAMES 

LIST SYMBOL TABLE 


LIST ALL 


@ Statement function names and their relative 
addresses 


e Constants and their relative addresses 


e Unreferenced statement numbers 


*LIST ALL 


The source program, subprogram names, and 
symbol table are listed. If this control record is 
used, the other LIST control records are not 
required. 


*E XTENDED PRECISION 


Variables and real constants are stored in three 
words instead of two, and the compiler generates 
linkage to extended precision routines. When this 
control record is used, the program does not 
conform to the ASA Basic FORTRAN standard for 
data storage, and it may require modification in 
order to be used with other FORTRAN systems. 


*ONE WORD INTEGERS 
Integer variables are allocated one word of storage 


rather than the same allocation used for real 
variables. Whether this control record is used or 


(XXXXX = program name to be printed on listing) 


Delete any not used 


(Store integer variables in one word) 

(Store floating point variables and constants in 3 words instead of 2) 
(Switch 15 ON to print result of each assignment statement) 

(Switch 15 ON to print value of IF or Computed GOTO) 

(List source program as it is read in) 


(List subprograms called directly by compiled program) 


(List symbols, statement numbers, constants) 


(List source program, subprogram names, symbol table) 





not, integer constants are always contained in one 
word. When this control record is used, the 
program does not conform the the ASA Basic 
FORTRAN standard for data storage, and it may 
require modification in order to be used with 
other FORTRAN systems. 


*NAME XXXXX 


The program name represented by XXXXX is printed 
on the listing. XXXXX is five consecutive 
characters (including blanks) starting at the first 
non-blank column. This control record is used 

only on mainline programs, since subprogram 
names are automatically taken from the 

FUNCTION or SUBROUTINE statement. 


**Header Information 


The information between columns 3-72 is printed 
at the top of each page of compilation printout when 
an 1132 Printer is the principal system printer. 


*ARITHMETIC TRACE 


The compiler generates linkage to trace routines 
which are executed whenever a value is assigned to 
a variable on the left of an equal sign. If Console 
Entry Switch 15 is turned on at execution time and 
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program logic (see Optional Tracing) does not 
prevent tracing, the value of the assigned variable 


is printed as it is calculated. 


*TRANSFER TRACE 


The compiler generates linkage to trace routines 
which are executed whenever an IF statement or 
Computed GOTO statement is encountered. If 
Console Entry Switch 15 is turned on at execution 
time and program logic (see Optional Tracing) does 
not prevent tracing, the value of the IF expression 
or the value of the Computed GOTO index is printed. 

If tracing is requested, an *10CS control record 
must also be present to indicate that either type- 
writer or printer is needed. If both typewriter 
and printer are indicated in the *IOCS record, the 
printer is used for tracing. 

The traced value for the assignment of a 
variable on the left of an equal sign of an arithmetic 
statement is printed with one leading asterisk. 

For the expression of an IF statement, the traced 
value is printed with two leading asterisks. The 
traced value for the index of a Computed GOTO 
statement is printed with three leading asterisks. 


Optional Tracing 


The user can elect to trace only selected parts of 
the program by placing statements in the source 
program logic flow to start and stop tracing. This 
is done by executing a CALL to either subroutine: 


CALL TSTOP (to stop tracing) 
CALL TSTRT (to start tracing) 


Thus, tracing occurs only if: 


e The trace control records were compiled with 
the source program, 


@ Console Entry Switch 15 is on (can be turned 
off at any time). 


@ A CALL TSTOP has not been executed, or a 
CALL TSTRT has been executed since the last 
CALL TSTOP. 
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Operating Notes - *LIST Control Cards 


A constant in a STOP or PAUSE statement is 
treated as a hexadecimal number. This hexadecimal 
number and its decimal equivalent appear in the list 
of constants. 

Variables and constants that require more than 
one word of storage have the address of the word 
nearest the zero address of the machine. In the 
case of arrays, the given address refers to the 
addressed word of the first element. In the case of 
a two- or three-word integer, the integer value is 
contained in the addressed word. The first variable 
listed might not be addressed at 0000 because room 
may be required for generated temporary storage 
locations. 

The relative address for variables not in 
COMMON would be the actual address if the program 
started at storage location zero. The relative ad- 
dress for variables in COMMON would be the actual 
address if the machine had 32K storage. The Loader 
makes any necessary adjustments. Variables in 
COMMON are adjusted to reside in the high-order 
core location of the machine being used (e.g., first 
COMMON variable will be loaded to 8191 on an 8K 
machine). 

Loading begins at core location 01C2 (450 deci- 
mal). The DISKZ routine is used regardless of 
what disk routine is requested on the XEQ control 


record (refer to Origins for Core Loads). 


FORTRAN PRINTOUTS 


Compilation Messages 


Near the end of the compilation, core usage 
information and the features supported (control 
records used) are printed out as follows: 


FEATURES SUPPORTED 
EXTENDED PRECISION 
ONE WORD INTEGERS 
TRANSFER TRACE 
ARITHMETIC TRACE 
IOCS 
CORE REQUIREMENTS FOR XXXXX 
COMMON YYYYY VARIABLES YYYYY PROGRAM YYYYY 


where XXXXX is the name of the program 
designated in the *NAME control record or in the 
SUBROUTINE or FUNCTION statement, and 
YYYYY is the number of words allocated for the 
specified parts of the program. 


Compilation Error Messages 


During compilation a check is made to determine 
if certain errors have occurred. If one or more 
of these errors have been detected the error 
indications are printed at the conclusion of 
compilation, and no object program is stored on 
the disk. Only one error is detected for each 
statement. In addition, due to the interaction of 
error conditions, the occurrence of some errors 
may prevent the detection of others until those 
which have been detected are corrected. With the 
exception of type 00 messages listed below, the 
error message appears in the following format: 


C NN ERROR IN STATEMENT NUMBER XXXXX + YYY 


where NN is the error number, described in 
Appendix A. XXXXX is the last encountered valid 
statement number, and YYY is the count of 
statements from statement XXXXX. 

Specification statements (except FORMAT) are 
not counted unless they contain an error. Statement 
numbers on specification statements and statement 
functions are ignored. i 


Message 


Type 00 Error Messages 


Code and 

Meaning 

C 00 MON CALL A Monitor call was executed 

(via operator intervention) 

during the compilation; the 

compilation is terminated 
and control is returned to 
the monitor. 

C 00 OVER 50 The FORTRAN disk I/O 
DISK ERRORS AT routine encountered an 
SECTOR nnnn unrecoverable disk error 

during compilation; 

nnnn is the hexadecimal 

address of the bad sector. 

The working storage area 

on disk is too small to 

accommodate the string area 
and symbol table for the 
program being compiled; 

the compilation is 

terminated. 


C 00 WORKING 
STORAGE 
EXCEEDED 


The following message is printed for a normal 
end of compilation (with or without errors): 


END OF COMPILATION 


FORTRAN Compiler 
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SUBROUTINE LIBRARY 





The 1130 Subroutine Library consists of a group 
of subroutines that aid the programmer in making 
efficient use of the IBM 1130 Computing System. 
Descriptions of the subroutines and methods for 
programming them are contained in the publication, 
IBM 1130 Subroutine Library (Form C26-5929). 
The following paragraphs describe the use of 
the IBM-supplied subroutines and discuss pre- 
operative errors and I/O error restarts where 
special handling is required. 


PRE-OPERATIVE ERRORS 


A pre-operative error is an error condition 
detected before an I/O operation is started. It 
denotes either an illegal LIBF parameter, an 
illegal specification in I/O area, or a device 
not-ready condition. This error causes a branch 
to location 0029 and the following conditions: 


e The I-counter displays the address 002A. 


e The Accumulator displays an error code 
represented by four hexadecimal digits. 


Digit 1 identifies the ISS called: 
1 - CARDO or CARD1 

2 - TYPEO or WRTYO 

3 - PAPTI1 or PAPTN 

5 - DISKO, DISK1, or DISKN 

6 - PRINT1 

7 - PLOT1 


Digits 2 and 3 are not used. 

Digit 4 identifies the error: 

0 - Device not ready 

1 - Dlegal LIBF parameter or illegal 
' specification in I/O area 


e Location 0028 contains the address of the LIBF 
in question. 


The ISS is set up to attempt initiation of the 
operation a second time if the LIBF is re-executed. 
Therefore, since the Loader stores a wait in- 
struction in location 0029 and an indirect branch 
to location 0028 in locations 002A and 002B, the 
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LIBF can be executed again by pressing PROGRAM 
START. 

When a pre-operative error is encountered the 
operator can: 


e Correct the error condition if possible and 
press PROGRAM START, or 


e Note the contents of the Accumulator and 
location 0028, dump core storage, and proceed 
with the next job. 


CARD SUBROUTINE (CARDO AND CARD1) ERRORS 
Error Parameters 


CARDO, There is no error parameter. If an error 
is detected during processing of an operation- 
complete interrupt, the subroutine loops 

internally, with interrupt level 4 on until the 1442 
becomes ready, and then retries the operation. 


CARD1. There is an error parameter. If an 
error is detected during processing of an 
operation-complete interrupt, the user program 
can elect to terminate (clear ''routine busy" and 
the interrupt level) or to retry. A retry consists 
of looping internally, with interrupt level 4 on 
until the 1442 becomes ready, and then 
reinitiating the function, 


1442 Errors and Operator Procedures 


If a 1442 error occurs, the 1442 becomes not ready 
until the operator has intervened. Unless the stop 
is caused by a stacker full (no indicator) or Chip 
Box indication, the 1442 card path must be 

cleared before proceeding. The 1442 error 
indicators and the position of the cards in the feed 
path should be used to determine which cards must 
be placed back in the hopper. 

For the card subroutines, a retry consists of 
positioning the cards (i.e., skipping the first card 
in the hopper, if necessary, on a read or feed 
operation) and reinitiating the function whenever 
the card reader becomes ready. 


Hopper Misfeed, Indicates that card 2 failed to 
pass properly from the hopper to the read station 
during the card 1 feed cycle. . 


Card positions after error: 


Punch Station 


Read Station 


Corner 


Stacker Hopper 





Error indicator: HOPR 

Operator procedure: When program halts, 
press NPRO to eject 
card 1, place card 1 in 
hopper before card 2, 
and ready the 1442. 


Feed Check (punch station). Indicates that card 1 
is improperly positioned in the punch station at the 


completion of its feed cycle. 


Card positions after error: 


Punch Station 


Read Station 





Error indicator: PUNCH STA 

Operator procedure: When program halts, 
empty hopper, clear 1442 
card path, place cards 1 
and 2 in hopper before 
card 3, and ready the 1442. 


Transport. Indicates that card 1 has jammed in 
the stacker during the feed cycle for card 2. 


Card positions after error: 


Punch Station 


Stacker 


Corner 


Error indicator: 
Operator procedure: 


Read Station 





TRANS 

“When program halts, 
empty hopper, clear 
1442 card path, place 
cards 2 and 3 in 
hopper before card 4, 
and. ready the 1442. 


Feed Cycle. Indicates that the 1442 took an 
unreque sted feed cycle and, therefore, cards 1, 
2, and 3 are each one station farther ahead in 
the 1442 card path than they should be. 


Card positions after error: 


Punch Station 


Read Station 





Error indicator: 
Operator procedure: 


FEED CLU 

When program halts, 
empty hopper, press 
NPRO to eject cards 

2 and 3, place cards 1, 
2, and 3 in hopper 
before card 4, and 
ready the 1442. 


Feed Check (read station). Indicates that card 1 


failed to eject from the read station during its 


feed cycle. 
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Card positions after error: 


Punch Station 





Error indicator: 
Operator procedure: 


Read Station 


Hopper 


READ STA 

When program halts, 
empty hopper, clear 
1442 card path, place 
cards 1 and 2 in 
hopper before card 3, 
and ready the 1442. 


Read Registration. Indicates incorrect card 
registration or a difference between the first and 
second reading of a column, 


Card positions after error: 


Punch Station 


Stacker ——» 


Corner 


Error indicator: 
Operator procedure: 






Read Station 


READ REG 

See Feed check (punch 
station). Repeated 
failures of this type 
might indicate a machine 
malfunction. 


Punch Check. Indicates an error in output punch- 


ing. 


Card positions after error: 


Punch Station 
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Read Station 


Error indicator: PUNCH 


Operator procedure: When program halts, 
empty hopper, check 
card position and press 
NPRO to clear 1442 card 
path. If necessary, 
correct card 1 to pre- 
punched state. Place 
(corrected) card 1 and 
card 2 in hopper before 
card 3 and ready the 1442. 


CONSOLE PRINTER SUBROUTINE (TYPEO AND 
WRTY0) ERRORS 


if the carrier attempts to print beyond the manually 
positioned margins, a carrier restore (independent 
of the program) occurs. 

Subroutine printing begins wherever the carrier 
is positioned as a result of the previous print 
operation. There is no automatic carrier return 
as a result of an LIBF. 

If the console printer indicates a not-ready 
condition after printing has begun, the sub- 
routines loop internally, with interrupt level 
4 on, waiting for the console printer to become 
ready. Operator procedures are as follows: 


1. Press IMM STOP on the console. 
2. Ready the console printer. 
3. Press PROGRAM START on the console. 


KEYBOARD SUBROUTINE (TYPEO) FUNCTIONS 


Re-entry 


When the Erase Field key is pressed, a character 
interrupt signals the interrupt response routine 
that the previously-entered keyboard message is 
in error and will be re-entered. The routine 
prints two slashes on the console printer, 
restores the carrier to a new line, and prepares 
to replace the old message in the I/O area with 
the new message. The operator then enters the 
new message. The old message in the I/O area 
is not cleared. The new message overlays the 
previous message, character by character. If 
the previous message was longer than the new 
message, characters from the previous message 
remain (following the NL character which 
terminated the new message). 


Backspace 


When the backspace key is pressed, the last graphic 
character entered is slashed and the address of the 
next character to be read is decremented by +1. 

If the backspace key is pressed twice consecutively, 
the character address is decremented by +2, but 
only the last graphic character is slashed. For 
example, assume that ABCDE has been entered 

and the backspace key pressed three times. The 
next graphic character replaces the C, but only 

the E is slashed. If the character F had been 

used for replacement the paper would show 
ABCDEFFF but ABFFF would be stored in the 
buffer. 


PAPER TAPE SUBROUTINES (PAPT) 


If the reader or punch becomes not ready during 
an I/O operation, the subroutines exit to the user 
via the error parameter. The user can request 
the subroutine to terminate (clear device busy 
and interrupt level) or to loop on not-ready 
waiting for operator intervention (interrupt 
level 4 on). 

The following procedure should be used to 
clear a paper tape not-ready condition: 


1. Press IMM STOP on the console. 
2. Ready the paper tape unit. 
3. Press PROGRAM START on the console. 
To load the paper tape reader, place the tape 
so that the delete characters punched in the 
leader are under the read starwheels. To 
begin reading at any point in the tape other than 
the leader, place the tape so that the frame 
(character position) preceding the character 
to be read is under the read starwheels. The 
first start reader control after tape is loaded or 
repositioned causes the reader to skip the 
character under the read starwheels and load the 
next character into the buffer. 


ADDING AND REMOVING SUBROUTINES 


Subroutines can be added to or removed from the 
subroutine library as desired by the user. The 
DUP control record STORE adds a subroutine, and 
the DUP control record DELETE removes a 
subroutine. Each subroutine in the IBM- 
supplied System Deck is preceded by a DUP 
STORE record. 

The user should not remove subroutines that 
are called by other subroutines left in the 
library (refer to Appendix E for a list of 
subroutines called by other subroutines). 
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SYSTEM GENERATION OPERATING 
PROCEDURES (CARD SYSTEM) 


Before the Disk Monitor System can begin 
operation, the user must perform the following 
functions: 


1. Load and execute the IBM-supplied Disk 
Pack Initialization Routine (DPIR) to 
initialize the disk pack. 

2. Prepare a Load Mode Control Card and 

System Configuration Cards, and insert 

these cards into the IBM-supplied System 

Deck. 

Load the above deck into the disk. 

4, Using the IBM-supplied Cold Start Card, 
load the Supervisor program into core 
storage from disk storage. 


Go 


Each of the above procedures is described in 
detail in subsequent sections of this manual. 


DISK PACK INITIALIZATION ROUTINE (DPIR) 


The DPIR (Disk Pack Initialization Routine) 
performs the following functions: 


1. Clears the disk and writes disk sector 
addresses on all cylinders. 

2. Determines which, if any, sectors are 
defective and writes the addresses of the 
cylinders containing the defective sectors 
on sector 0000. If sector 0000 is defective, 
DPIR does not write any defective cylinder 
table. 

3. Puts an ID on the disk pack. 


The 1130 Disk Routines operate effectively with up 
to three cylinders containing defective sectors. 
An attempt to read or write a defective sector 
that is not identified in sector 0000 results ina 
read or write error after the operation has been 
attempted 10 times. 

At the completion of DPIR, an eight-word table 
is written on sector 0000. The first word (word 0) 
of the table contains the sector address 0000. 
Words one, two, and three contain the first sector 
address of any defective cylinders found (maximum 
of three). When there is no defective cylinder, 
these words contain 0658,,. Word 4 is reserved. 
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Words five, six, and seven contain a five character 
ID name in packed EBCDIC. Words five and six 
contain two characters per word, and word seven 
contains an EBCDIC character in the left half of the 
word and an EBCDIC blank in the right half of the 
word. 

To determine which sectors are defective, the 
user can dump core upon completion of execution; 
the defective sector table starts at location 0739 and 
the actual count of defective sectors is in location 
035E. 

Table 10 lists the DPIR halt addresses. 


DPIR Card Load Operating Procedures 


The procedure for loading and executing the Disk 
Pack Initialization Routine is as follows: 


Load the disk pack in the console cabinet, 

Put the DPIR deck in the card hopper. 

Set the console mode switch on RUN. 

Press IMM STOP, then RESET on the console. 
Press START on the card reader. 

Press PROGRAM LOAD on the console. 


Se ee 


The DPIR is read in and the keyboard is selected. 
(The keyboard Select light comes on.) Wait for the 
File Ready light to come on and then: 


1. Enter the five-character ID to be written on the 
disk pack. If the ID is less than five characters, 
left-justify by following the ID with spaces. 

Only those characters recognized by the Super- 
visor should be used (see Appendix D). When 
the fifth character is entered, the program 
branches to execute. The disk surface is now 
cleared and the sector addresses are written. 
The routine waits at 038A. 


2. Set all the Console Entry switches off. 

3. Press PROGRAM START. The defective 
sector and file protect address data is written 
on sector 0000. A scan of the disk is now 
performed to check for seek failures. If a 
seek or read failure occurs, the routine waits 
at O3EA. Other DPIR halt addresses are 
described in Table 10. 


Table 10. DPIR Halt Addresses 


Halt . ; 


A Write Select error has occurred. CE intervention is required; reload the routine 
or branch to O2EE manually. 


The disk is not ready. Make the disk ready and restart the program. 


Sector 0000 is defective; the sector addresses have been written 
on the disk, but the table has not been written on sector 0000. 


The routine has run successfully and no defective sectors were 
found. 


The routine has run successfully and three or less defective 
sectors were found. 


The routine has run successfully, but more than three defective 
sectors were found. 


The routine is in WAIT. Turn the console entry switches off; then press 
PROGRAM START on the console. 


A seek failure or read failure occurred during a scan of the 


disk. 





USER-SUPPLIED CARDS The System Loader will give error messages for 
missing or invalid user-supplied cards (see 

Before loading the Disk Monitor System programs Appendix A). 

onto the disk, the user must prepare the following 

cards: Load Mode Control Card 

1. Load Mode Control Card The Load Mode Control Card is used to specify an 

2. System Configuration Deck: initial load or a reload. It also permits the user 
a. SCON Card to specify whether the assembler and/or FORTRAN 
b. REQ Card(s) is to be loaded. The format is shown in Table 11 
c. TERM Card (only columns 1 through 3 are used). For example, 


Table 11. Load Mode Control Card Format 


Initial load. Monitor System programs, ILS and ISS subroutines required by the system, and functional subroutines 
are loaded, However, the assembler will not be loaded if column 2 contains a O punch, and FORTRAN will not be 
loaded if column 2 contains a 1 punch, 


No 12 Punch Reload. Monitor System programs are reloaded, and the contents of the User and Fixed areas (including LET/FLET) 
are not changed. Only programs presently on the disk can be reloaded; if the assembler or FORTRAN were not 


loaded during an initial load, or have since been deleted, they cannot be reloaded. 


0 Punch Bypass (do not load) assembler. 
No 0 Punch Load assembler. 


1 Punch Bypass (do not load) FORTRAN. 
No 1 Punch Load FORTRAN. 


Required in all cases to identify Load Mode Control Card. 
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to initially load the monitor (including the assembler 
and FORTRAN), the Load Mode Control Card is 
punched with a 12 punch in column 1 and a 9 punch 
in column 3. 


System Configuration Deck 


SCON Card 


The SCON Card is the deck header card. The 
format is as follows: 


Columns Contents 


1-4 SCON 


Table 12. REQ Card Format 











Columns 


rr 


ais 


1442 Card Read Punch 1 
Input keyboard and console 2 
printer 

1134 paper tape reader or REQ 3 
1055 paper tape punch 

Disk 4 
1132 Printer r 
Plotter 7 


NOTE: If both the console printer and the 1132 Printer are included, 
the 1132 Printer will be the principal printing device; if 

both the 1442 Card Read Punch and the 1134/1055 paper tape 
units are included, the 1442 Card Read Punch will be the 
principal |/O device. 












(Primary | (Second 
Interrupt | Interrupt 
Branch | Branch 
Address | Address 
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REQ Cards 


REQ Cards identify devices present in system. The 
System Loader uses this information for selective 
generation and loading of ILS subroutines and se- 
lective loading of ISS subroutines. The format is 
shown in Table 12. 


TERM Card 


The TERM Card is the last card of the System 
Configuration Deck. The format is as follows: 


Columns Contents 


1-4 TERM 


{ 


PROCEDURE FOR INITIALIZING DISK MONITOR c. IBM-supplied System Loader Deck, Part 2. 


SYSTEM FROM CARDS Columns 73-74 contain the ID: E2. 
d. User-supplied System Configuration Deck 
1, Execute the following: (SCON Card, REQ Cards, TERM Card). 
a. Press IMM STOP on console. e. Remainder of IBM-supplied System Deck. 
b. Press RESET on console. 
c. Press NPRO on the 1442 card reader. 3. Execute the following: 
2. Load the following decks into hopper of the a. Turn the File Switch on, and wait for the 
1442 card reader (see Figure 10). File Ready light on the console to go on. 
a. IBM-supplied System Loader Deck, Part 1. b. Press START on the 1442 card reader, 
Columns 73-74 contain the ID: E1. c. Press RESET on console. 
b. User-supplied Load Mode Card. d. Press PROGRAM LOAD on console. 


Remainder of System Deck 
(IBM Supplied) 


System Configuration Deck 
(User Supplied) 


oad Mode Card 


Figure 10, System Loader Card Sequence 






System Loader Deck - Part 2 
(IBM Supplied) 


Columns 73-74 contain ID; E2 





System Loader Deck = Part 1 
(IBM Supplied) 
Columns 73-74 contain ID: E1 
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COLD START OPERATING PROCEDURE 


To begin operation of the Disk Monitor System after 
it has been loaded to the disk, the user must load the 
Supervisor Program into core storage from disk 
storage by using the IBM-supplied Cold Start Card 
(last card of subroutine deck) or Cold Start paper 
tape record. 

The procedure for executing the Cold Start Card 
is as follows: 


1. Insert the monitor disk pack in the console 
cabinet. 

2. Turn the File Switch on, and wait for the File 
Ready light on the console to go on. 

3. Put the Cold Start Card into the card hopper 
followed by a monitor control record to be 
processed. 

4, Press IMM STOP, then RESET on the console. 

Press START on the card reader. 

6. Press PROGRAM LOAD on the console. 


or 


The Cold Start record reads the Cold, Start 
sector (0001) from disk into core location 0802. 
The Monitor Supervisor Program is then read into 
core. The first monitor control record is read 
under control of the Supervisor Program by the 
Monitor Control Record Analyzer routine. 


Possible stopping locations are given in Table 13. 


NOTE: A cold start cannot be used to resume an 
operation that has been previously terminated. 


Table 13. Cold Start Halt Addresses 


Halt Address Meanin 
(hex) ey 


The disk was not ready and the first XIO was 
treated as a NOP 


When sector 0001 was read, the address was 
not 0001 


There was a Disk Data Error 








Sector 000A was not read correctly 





Sector 0009 was not read correctly 






Sector 0008 was not read correctly 






There was a Disk Data Error 






Disk not ready 
Disk not ready 






Disk not ready 






Disk not ready 






Disk not ready 





All of the paper tape records needed to load the 
Paper Tape Monitor System to disk storage are 
supplied to the user by IBM. These records have 
the same functions as the corresponding IBM- 
supplied and user-written card decks. These 
functions are described under System Generation 
Operating Procedures (Card System). 

The Load Mode Control record and System 
Configuration records are supplied by IBM to the 
user of the Paper Tape System. These tapes are 
supplied with all the possible configurations, and 
the user need only select the configuration for his 
particular use. If these tapes are not read 
correctly, the System Loader will give error 
messages (see Appendix A). 

The tapes constituting the Paper Tape Monitor 
System are described below. The procedure for 
loading these tapes onto disk is described under 


Procedure for Initializing Disk Monitor System 
from Paper Tape. 


Tape Description 
1 System Loader, Part 1 
2 Load Mode Control Record (same 
function as Load Mode Control 
Card) 
3 System Loader, Part 2 
4 System Configuration Records 


(same function as System 
Configuration Deck) 
5 Supervisor Tape (includes the 
Loader) 
Disk Utility Program 
FORTRAN Compiler 
Assembler 
ILS Control Records and Library 
Subroutines 
10 Cold Start Paper Tape Record 
11 DPIR Tape (includes core-image 
loader) 
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If FORTRAN and/or the assembler are not to 
be loaded during an initial load, the corresponding 
tapes (7 and/or 8) need not be read. 


PAPER TAPE MONITOR SYSTEM 


During a reload of system programs, tapes 1 
through 5 must be read. If DUP, FORTRAN, 
and/or the assembler are not to be reloaded, the 
corresponding tapes (6, 7, and/or 8) need not be 
read. The procedures for reloading DUP, 
FORTRAN, and the assembler are the same as 
the card system procedures. Tape 9 need not 
be read-during a reload operation. 


DPIR PAPER TAPE LOAD OPERATING 
PROCEDURES 


The procedure for loading and executing the DPIR 
(Disk Pack Initialization Routine) is as follows: 


1. Insert the disk pack in the console cabinet. 
2. Put the DPIR tape in the reader; position one 
of the delete codes that appear after the 

program name in the leader under the 
read starwheels. 

3. Press IMM STOP, RESET, and PROGRAM 
LOAD on the console. 

4. When the loader reads in and waits, position 
the DPIR tape. 

5. Press PROGRAM START on the console. 


From this point on, the operation is identical 
to the card load. 


PROCEDURE FOR INITIALIZING DISK MONITOR 
SYSTEM FROM PAPER TAPE 


To load the paper tape system onto disk, the 
operator must perform the following steps: 


1. Place the System Loader, Part 1, (Tape 1) 
in the Paper Tape Reader. When loading 
tapes 1 through 9, position any one of the 
delete codes following the program name 
in the tape header under the read star- 
wheels. 

2. Press RESET on the console. 

3. Press PROGRAM LOAD on the console. Tape 
1 is read into core starting at location 0. 
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4, When a WAIT occurs (at 05BC), place the 
Load Mode Control tape (Tape 2) in the 
Paper Tape Reader. 

5. Press PROGRAM START on the console. 


6. When a WAIT occurs, place the next system 


tape in the Paper Tape Reader. 
7. Press PROGRAM START on the console. 
8. Repeat steps 6 and 7 until the last system 
tape is read. 


The System Loader determines if the complete 
system has been loaded. If the system has not 
been loaded, the System Loader WAITs for 
another tape to be readied by the operator until 
the complete system is loaded. 

A WAIT at 0EA6 is a checksum error, 
indicating faulty tape. 


COLD START OPERATING PROCEDURE 


The procedure for executing the Cold Start 
paper tape record is as follows: 
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1. Insert the monitor disk pack into the console 
cabinet. 

2. Turn the File Switch on, and wait for the File 
Ready light on the console to go on. 

3. Put the Cold Start paper tape record into the 
reader; position any one of the delete codes 
following the program name in the tape 
leader under the read starwheels. 

4. Press IMM STOP, then RESET on the console. 

Press PROGRAM LOAD on the console. 


ol 
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PAPER TAPE CONTROL RECORDS 


Paper tape control records must be punched in 
PTTC/8 (perforated tape transmission code). 
The formats are the same as the previously- 
described card formats. Paper tape control 
records must be separated by one NL (new 

line) control character. A control record which 
immediately follows paper tape data not followed 
by an NL code must be preceded by one NL code. 
Delete codes may precede or follow this NL code. 


APPENDIX A. ERROR MESSAGES 


Table A-1. System Loader Error Codes 


Error 
Code Type of Error Corrective Action 


Check-sum error. Follow Procedure A or reload and restart. 


Illegal card type or blank card. Follow Procedure A or reload and restart, 
Card out of sequence. Follow Procedure A or reload and restart. 


ORG backward to an address lower than that established Inspect deck for card(s) missing or out of sequence. Correct deck 
by last sector break card. and reload edit program. 


Error in Load Mode card. Make necessary card correction and reload edit program. 
Disk error. Press PROGRAM START on console to retry. 


Disk pack not initialized or Sector 0 data damaged. Use DPIR program to initialize Sector 0. Initial load should follow 
since DPIR clears the disk. 


Configuration deck missing or one of the following errors Make corrections and reload edit program. 
detected: 

SCON card not followed by REQ cards. 

less than 2 REQ cards present. 

more than 6 REQ cards present. 

Secondary Interrupt Branch Address (IBA) not included 

in ISS #1 card, 

Secondary [BA not equal to 12. 

Primary IBA not in range 8 through 12, 

1SS number missing or negative. 

ISS number 5 detected (illegal) . 

1SS number greater than 7. 

TERM card missing 


File protect address (in COMMA) prohibits loading System No recovery unless file protect address can be lowered by deleting 
Loader, Part 2. part of material on disk. System Loader requires temporary use of 
Cylinders 198 and 199. 


During reload, old FORT or ASM address in COMMA is | If COMMA has been damaged, an initial load is required; otherwise 
different from new FORT or ASM sector address. system programs deck is faulty. 


Fixed area or Core Image Buffer area, as defined by Same as E10. 
COMMA, is about to be overlayed. 





* Applies to initial load only. 
** Applies to reload only. 


Procedure A: 


Lift remaining cards from hopper and depress NPRO on 1442, 
Place the two ejected cards (after corrections) in card hopper. 
Replace remaining cards in card hopper. 

Press START on 1442, 

Press PROGRAM START on console. 
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Table A-2, System Loader Wait Locations (Part 1) 


Wait after displaying Eé error 
Wait after displaying E1 error 
Wait after displaying E3 error 


Wait after displaying E2 error 


Wait after displaying E8 error 


Wait after displaying E5 error 
Wait after displaying E9 error 
Wait after displaying E8 error 
Wait after displaying E4 error 
Wait after displaying E7 error 


Wait after displaying E4 error 


Wait during loading of the System Loader due to 
incorrect check sum, e.g., a missing card or 


card out of sequence. 





Table A-3. System Loader Wait Locations (Part 2) 
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Wait after displaying E 10 error 
Wait after displaying E 10 error 
Wait after displaying E 11 error 
Wait after displaying E 1 error 
Wait after displaying E 3 error 
Wait after displaying E 2 error 
Wait after displaying E 5 error 
Wait after displaying E 3 error 
Wait after displaying E 4 error 
Wait after displaying E 2 error 


Wait after displaying E 6 error 


Wait after displaying END reload 





M01 PHASE NONX 


M 02 INVALID 


M 03 NON XEQ 


M 04 CHARACTER 


M 05 OFLO DISK 


M 06 NO PROGRAM 


M 07 NON DUP 


M 09 RECORD TRAP 


M 11 NOT IDENT 


M 12 SEQ ERROR 


M 13 T ERROR 


Table A-4. Monitor Supervisor Error Messages 





Execution is not permitted for this job. 


The above listed record is an invalid 
Supervisor record, 


The currently called execution is not 
permitted. 


A character in the name listed above 
is not permitted, 


The records listed above were too many 
for the disk storage allocated. 


The mainline program name listed above 


~ is not in the LET or FLET table or is not 


a mainline program. 


DUP is not allowed for the subjob. 

A system program detected a Supervisor 
record and returned control to the 
Supervisor. 


The cartridge identifier on the cartridge 
is not identical to the one on the input 
record, The Supervisor waits to allow 
the operator to rectify the difference if 
desired, 


LOCAL, NOCAL, and/or FILES records 
are intermixed (they must be grouped). 


Column 8 in the JOB record does not 
contain a blank ora T. An ampersand 
is printed in place of the illegal char- 
acter, The Supervisor waits so that the 
operator can (1) correct the JOB record, 
reload it in the reader, and press 
PROGRAM START on the console; or 

(2) press PROGRAM START on the 
console. In either case the JOB record 
is processed completely before any other 
processing. The job is considered non- 
temporary if column 8 contains a blank 
or a character other thana T. 


Table A-5, Monitor Supervisor Wait Locations 


Operator pressed PROGRAM STOP on the console. Press PROGRAM START to continue. 


I/O error or device not-ready condition. Refer to Subroutine Library - Preoperative Errors. 


Disk error, Press PROGRAM START to retry. 
1. Pause due to PAUS control record. 1. Press PROGRAM START to continue. 


2. Identifier error in JOB control record. 2. Correct the record, reenter it, and press PROGRAM START; or press 
PROGRAM START. 


Paper tape reader not ready. Ready paper tape reader and press PROGRAM START. 


Column 8 in the JOB record does not contain a blank or Correct the record, reenter it, and press PROGRAM START; or press 
aT. PROGRAM START. In either case, the current job is processed first. 
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Table A-6. Loader Messages/Error Messages (Part 1) 


Code and Message Explanation and Recovery Procedures 


ORIGIN BELOW 1ST WORD OF MAINLINE 


LOAD REQUIRES SYSTEM LOCALS, LEVEL 1 


LOAD REQUIRES SYSTEM LOCALS, LEVEL 2 


FILE(S) TRUNCATED (SEE FILE MAP) 


CORE LOAD EXCEEDS 32K 


LIBF TV REQUIRES 82 OR MORE ENTRIES 


TOO MANY ENTRIES IN LOAD-TIME TV 


LOCALS/SOCALS EXCEED WKNG, STORAGE 


DEFINED FILE(S) EXCEED WKNG. STORAGE 


XXXXX IS NOT IN LET OR FLET 


XXXXX CANNOT BE DESIGNATED A LOCAL 


XXXXX IS NOT ON A SECTOR BOUNDARY 


XXXXX COMMON EXCEEDS THAT OF ML 


XXXXX PRECISION DIFFERENT FROM ML 


XXXXX AND ANOTHER VERSION REFERENCED 


XXXXX IS A USER AREA FILE REFERENCE 


The Loader has been instructed to load a word into an address lower than that of the 
first word of the mainline program. The ORG statement which caused this situation 
must be removed, or the mainline program must start at a lower address. 


No error, The load was too long to fit into core. The Loader has made two overlays, 
and the program will be executed with these two groups of routines overlaying each 


other (refer to System Overlays). 


No error, The load was too long to fit into core. The Loader has made three overlays, 
and the program will be executed with these three groups of routines overlaying one 


another (refer to System Overlays). 


At least one defined file has been truncated either because the previously defined 
storage area in the User or Fixed area was inadequate or because there is inadequate 
Working Storage available to store the file. See Message R 12 for a possible remedy. 


The Loader has been instructed to load a word into an address exceeding 32, 767, whici: 
is a negative number, The loading process is immediately terminated, because the 
Loader cannot process negative addresses, This error was probably caused by bad data, 
i.e., the program being loaded from the disk has been destroyed. 


There are at least 82 different entry points referenced in the load by LIBF statements. 
A possible remedy would be to subdivide the load into two or more links. 


There are more than 135 references to different entry points with CALL and/or LIBF 
statements in the load. A possible remedy would be to subdivide the load into two or 
more links, 


There is insufficient Working Storage remaining to accommodate the LOCAL and/or 
SOCAL overlays required in the load. A possible remedy would be to create more 
Working Storage by deleting subroutines, subprograms, and/or data no longer required 
by the installation, 


There is insufficient Working Storage remaining to accommodate even one record of 
the defined file(s). See Message R 12 for a possible remedy. 


The program or data file designated in the message cannot be found in LET or FLET. 
A possible remedy is to store the program or data file. If the name cannot be explained 
otherwise, the program being loaded has probably been destroyed. 


The routine named in this message is either a type which cannot appear on a LOCAL 
record, or this routine, which isa LOCAL, has been referenced, directly or indirectly, 
by another LOCAL, the name of which cannot be supplied by the Loader. 


The area named in this message does not begin at a sector boundary, which implies 
that it is not a storage area but a relocatable program, and thus a possible error. 
Choose another area for the storage of this file. 


The length of COMMON for the routine named in this message is longer than that of 
the mainline program. A possible remedy is to define more COMMON for the mainline 
program. 


The precision for the routine named in this message is incompatible with that of the 
mainline program. Make the precisions compatible. 


At least two different versions of the same I/O routine have been referenced, e.g., 
both CARDZ and CARDO (FORTRAN utilizes the'’Z" version). If a disk routine is 
named in the message, it is possible that the XEQ record specifies one version, e.g., 
DISKO, whereas the program references another, e.g., DISK1 (a blank in col. 19 of 
the XEQ record causes DISKO to be chosen). 


The area named in this message is in the User area; references in DEFINE FILE and DSA 
statements for *STORECI functions must be to the Fixed area. 





*FORTRAN mainline programs only 
**XXXXX = the name of the program or disk file concerned 
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Table A-6. Loader Messages/Error Messages (Part 2) 


Code and Message Explanation and Recovery Procedures 


*R 24. XXXXX IS BOTH A LIBF AND A CALL The routine named in this message has been either referenced improperly, i.e., CALL 
instead of LIBF or vice versa, or has been referenced in both CALL and LIBF statements. 
The only remedy is to reference the routine properly. NOTE: NOCALs must be CALL- 
type routines,"i.e., type 4 or 6 routines (refer to Appendix B). 


XXXXX HAS MORE THAN 14 ENTRY POINTS This message usually indicates that the routine has been destroyed since no routine is 
stored with more than 14 entry points. 


XXXXX HAS AN INVALID TYPE CODE The routine named in this message has either been designated on an XEQ record and is 
not a mainline program, indicating a mistake has probably been made in preparing the 
XEQ record, or contains a type code other than 3 (subroutine), 4 (functional), 5 (ISS), 
or 6 (ILS), in which case the routine has probably been destroyed. This error could 
also be caused by a DSA statement referencing a program which is in Disk System format, 
or a CALL or LIBF referencing a program in Core Image or Disk Data format, 


XXXXX LOADING HAS BEEN TERMINATED The loading of the mainline program named in this message has been terminated as a 
result of the detection of the error(s) listed in the messages preceding this one. 


XXXXX CANNOT REF’CE THE LOCAL XXXXX The routine named first in this message has referenced the routine named second, which 
isa LOCAL. Either the first named routine is a LOCAL or it is entered (directly or 
indirectly) froma LOCAL. Neither case can be allowed for it could cause a LOCAL 
to be overlaid by another LOCAL before the first LOCAL has been completely executed. 


XXXX (HEX) = ADDITIONAL CORE REQUIRED If the load was executed, XXXX16 is the number of words by which it exceeded core 
storage before the Loader made it fit by creating special overlays (SOCALs); if the 
load was not executed, the first occurrence of the message is as described and the 
record indicates the number of words by which it exceeds core storage even after 
creating the deepest level of special overlays. A possible solution to the latter problem 
is to create two or more links or LOCALs. 


XXXX (HEX) TOO MANY WDS IN COMMON The length of COMMON specified in the mainline program plus the length of the core 
load exceeds core storage by XXXX16 words. 


XXXX (HEX) IS THE EXECUTION ADDR No error, This message follows every successful conversion from Disk System format 
to Core Image format provided a core map is requested. 


XXXX (HEX) = ARITH/FUNC OVERLAY SIZE No error. If has been necessary to employ the special overlays (SOCALs), and 
XXXX16 is the length of the arithmetic/functional overlay (refer to System Overlays). 


XXXX (HEX) = FI/O +1/O OVERLAY SIZE No error. It has been necessary to employ the special overlays (SOCALs), and 
XXXX1¢6 is the length of the FORTRAN 1/0, I/O, and conversion routine overlay 
(refer to System Overlays). 


XXXX (HEX) = DISK Fi/O OVERLAY SIZE ‘No error, It has been necessary to employ the special overlays (SOCALs), and 
XXXX1¢6 is the length of the Disk FORTRAN I/O overlay, including the 320-word 
buffer. 


XXXX (HEX) = AN ILLEGAL ML LOAD ADDR XXXX16 is the address at which the loader has been requested to start loading the 
mainline program, but this address is lower than the highest address occupied by the 
version of Disk I/O requested for this load. Either make the mainline origin higher 
or request a shorter version of Disk, 


¢q 


XXXX (HEX) WORDS AVAILABLE No error, XXXXq1¢ is the number of words of core storage not occupied by this core 
load, 





*XXXXX = the name of the program or disk file concerned 
**XXXXX = the name of the program concerned 
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Table A-7. Assembler Error Messages 


A0Ol] MINIMUM W, S. NOT AVAILABLE--- Less than 33 sectors of Working Storage are | Perform a DUP DELETE to expand Working 


ASSEMBLY TERMINATED 


A02 SYMBOL TABLE OVERFLOW EXCEEDS 4 CYLINDERS 


A03 DISK OUTPUT EXCEEDS W.S. 


A04 SAVE SYMBOL TABLE INHIBITED 
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available at the beginning of the assembly. 


Symbol table overflow exceeds 3392 
symbols (refer to Assembler Messages and 


Error Codes to compute number of symbols 
allowed in‘a program). 


Disk output is greater than Working 
Storage, 


With SAVE SYMBOL TABLE option, symbol 
table exceeds the allowable System 
Symbol Table size of 100 symbols, or at 
least one assembly error was detected, 


Storage to a minimum of 33 sectors before 
attempting further assemblies. 


Reduce number of symbols and 
reassemble. 

Divide program into segments and 
assemble each separately. 


If error occured during pass 1, the 
assembler will wait at OAD6. When 
PROGRAM START is pressed, the 
assembly will continue in the two-pass 
mode. Therefore, the operator should 
first insure that the source statements 
can be read a second time without 
encountering the next monitor control 
record, 

If error occurred during pass 2, object 
output exceeds Working Storage. 
Perform a DUP DELETE to enlarge 
Working Storage. 


Reduce number of symbols and/or correct 
the erroneous statements and reassemble. 





Table A-8. FORTRAN Error Codes (Part 1) 


Error 
Number Cause of Error 


Table A-8, FORTRAN Error Codes (Part 2) 


Error 
Number Cause of Error 


Non-numeric character in statement number, 


More than five continuation cards, or continuation card 
out of sequence, 


Syntax error in CALL LINK or CALL EXIT statement. 


Undeterminable, misspelled, or incorrectly formed 
statement. 


Statement out of sequence, 


Statement following transfer statement or a STOP statement 
does not have statement number. 


Name longer than five characters, or name not starting 
with an alphabetic character. 


Incorrect or missing subscript within dimension information 
(DIMENSION, COMMON, or type). 


Duplicate statement number. 

Syntax error in COMMON statement. 

Duplicate name in COMMON statement. 

Syntax error in FUNCTION or SUBROUTINE statement. 


Parameter (dummy argument) appears in COMMON 
statement. 


Name appears twice as a parameter in SUBROUTINE or 
FUNCTION statement. 


*IOCS control record in a subprogram. 
Syntax error in DIMENSION statement. 
Subprogram name in DIMENSION statement. 


Name dimensioned more than once, or not dimensioned on 
first appearance of name. 


Syntax error in REAL, INTEGER, or EXTERNAL statement. 
Subprogram name in REAL or INTEGER statement. 


Name in EXTERNAL which is also in a COMMON or 
DIMENSION statement. 


IFIX or FLOAT in EXTERNAL statement. 
Invalid real constant. 
Invalid integer constant. 


More than 15 dummy arguments, or duplicate dummy 
argument in statement function argument list. 


Right parenthesis missing from a subscript expression. 
Syntax error in FORMAT statement. 
FORMAT statement without statement number, 


Field width specification >145. 








In a FORMAT statement specifying E or F conversion, 
w>127,d>31, ord>w. 






Subscript error in EQUIVALENCE statement, 






Subscripted variable in a statement function. 







Incorrectly formed subscript expression. 


Undefined variable in subscript expression. 






Number of subscripts in a subscript expression does not 
agree with the dimension information. 









Invalid arithmetic statement or variable; or, ina 
FUNCTION subprogram the left side of an arithmetic 
statement is a dummy argument (or in COMMON). 






Syntax error in IF statement. 






Invalid expression in IF statement. 






Syntax error or invalid simple argument in CALL state~ 
ment. 






Invalid expression in CALL statement. 


Invalid expression to the left of an equal sign ina state- 
ment function. 






Invalid expression to the right of an equal sign in a state- 
ment function. 






In an IF, GO TO, or DO statement a statement number is 
missing, invalid, incorrectly placed, or is the number 
of a FORMAT statement. 






Syntax error in READ or WRITE statement. 






*1OCS record missing with a READ or WRITE statement 
(mainline program only). 






FORMAT statement number missing or incorrect in a 
READ or WRITE statement. 












Syntax error in input/output list; or an invalid list 
element; or, ina FUNCTION subprogram, the input list 
element is a dummy argument or in COMMON. 






Syntax error in GO TO statement. 





index of a computed GO TO is missing, invalid, or not 
preceded by a comma, 










*TRANSFER TRACE or *ARITHMETIC TRACE control 
record present, with no *IOCS control record in a main- 
line program. 






Incorrect nesting of DO statements; or the terminal state- 
ment of the associated DO statement is a GO TO, IF, 
RETURN, FORMAT, STOP, PAUSE, or DO statement. 







More than 25 nested DO statements. 


Syntax error in DO statement. 






Initial value in DO statement is zero. 





Appendix A. Error Messages 53 


Table A-8. FORTRAN Error Codes (Part 3) 


Error 
Number Cause of Error 


In a FUNCTION subprogram the index of DO is a 
dummy. argument or in COMMON. 







Syntax error in STOP statement. 


Syntax error in PAUSE statement. 





Integer constant in STOP or PAUSE statement is >9999. 


Last executable statement before END statement is not 
a STOP, GO TO, IF, CALL LINK, CALL EXIT, or 
RETURN statement. 







Statement contains more than 15 different subscript 
expressions. 









Statement too long to be scanned, because of compiler 
expansion of subscript expressions or compiler addition 
of generated temporary storage locations. 


All variables are undefined in an EQUIVALENCE list. 


Variable made equivalent to an element of an array, in 
such a manner as to cause the array to extend beyond 
the origin of the COMMON area. 













Two variables or array elements in COMMON are 
equated, or the relative locations of two variables or 

array elements are assigned more than once (directly or 
indirectly). 


Syntax error in an EQUIVALENCE statement; or an 
illegal variable name in an EQUIVALENCE list. 


Subprogram does not contain a RETURN statement, or 
a mainline program contains a RETURN statement. 






No DEFINE FILE in a mainline program which has disk 
READ, WRITE, or FIND statements. 







Syntax error in DEFINE FILE. 


Duplicate DEFINE FILE, more than 75 DEFINE FILES, 
or DEFINE FILE in subprogram, 







Syntax error in record number of READ, WRITE, or 
FIND statement. 


*The detection of a code 65, 66, or 67 error prevents any subsequent 
detection of any of these three errors. 


Table A-9, DUP Error Messages (Part 1) 


D 01 NOT PRIME ENTRY 
D 02 INVALID TYPE 


D 03 INVALID HEADER LENGTH 


D 05 SECONDARY ENTRY POINT NAME ALREADY IN LETIS.... 


D 13 DCTL, FUNCTION 


D 14 DCTL, FROM FLD 


D 15 DCTL, TO FIELD 


D 16 DCTL, NAME FLD 


D 17 DCTL, COUNT 


D 18 DCTL, TMP MODE 


D 41 FIXED AREA PRESENT 


D 42 ASSEMBLER NOT IN SYSTEM 
D 43 FORTRAN NOT IN SYSTEM 


D 44 INCREASE VALUE IN COUNT FIELD 


D 45 EXCEEDS WORK STORAGE 


D 61 DUPCO, EXCEEDS WORK STORAGE 
D 62 EXCEEDS WORK STORAGE 

D 64 EXCEEDS FIXED AREA 

D 71 SEQUENCE OR CKSUM 


D 72 LOAD BLANK CARDS 


D 82 NON FILES RECORD 


D 83 INVALID CHARACTER 


D 84 EXCEEDS SECTOR ALLOCATION 


The primary name of the program in Working Storage does not match the 
name on the DUP control record. 


One of the following is detected: non-DSF program, mispositioned header, 
foreign data, or erroneous subtype. 


Word six of the DSF header is outside the range of 3-45, The causes are 
similar to D 02, except for subtype. 


The specified name is already in LET. The name must be deleted before this 
subprogram can be stored, 


An invalid DUP function specified in columns 1-12 of the DUP control record, 


Unacceptable characters are in columns 13 and 14 of the DUP contro! record. 
If Working Storage is specified in columns 13 and 14, then there is no valid 
program in Working Storage, i.e., the Working Storage Indicator has been 
set to zero, thus inhibiting the movement of programs from Working Storage. 


Unacceptable characters are in columns 17 and 18 of the DUP control record. 


If this is a *STORE control record, then the name is already in LET/FLET. 

If this is a *DUMP control record, then the name is not found in LET or FLET. 
If this is a *DUMP control record of Working Storage to the principal [/O, 
then a name is required in columns 21 through 25 of the DUP control record, 


“Columns 27 through 30 are blank or include alphabetic characters. 


The count field requires a decimal number. 
This function is not allowed during the JOB T mode. 


The FORTRAN compiler and/or assembler cannot be eliminated if a Fixed 
area has been previously defined. 


The assembler has previously been eliminated from the system, 
The FORTRAN compiler has previously been eliminated from the system. 


The count field was read as a value of zero or one. The first DEFINE 
requires one cylinder for FLET plus one cylinder of Fixed area. 


Thereafter, as little as one cylinder of additional Fixed area can be defined. 
The initiation or expansion of the Fixed area is limited to the Working 
Storage available, 

This function requires more Working Storage than is available,” 

The Working Storage area is not large enough to contain the program specified. 
There is insufficient room in the Fixed area for the program, 

The cards are out of sequence, or there was an erroneous checksum, 

More blank cards are required to complete the dump. The operator performs 
an NPRO and places blank cards between the two cards ejected, removes the 
first card, places the first card in the output stacker, places the remainder 

in front of the cards stil] in the reader hopper, and presses the reader START 
button. 

The first six characters of records following *STORECI are not *FILES. The 
number of *FILES records is determined by the count field of DUP control 


record STORECI. 


The *FILES record following the *STORECI DUP control record has an invalid 
character. 


Too many Files have been defined. More than two sectors are required to 
contain the information from the *FILES record. 
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Table A-9. DUP Error Messages (Part 2) 


D 92 INVALID Cl CONVERT The Loader has inhibited the continuation of *STORECI. The specific 


reason has been printed by the Loader, 


D 94 LET/FLET OVERFLOW A ninth sector of LET/FLET is required for the LET/FLET entry. A deletion 
of a program with a LET/FLET entry of similar size is required before this 
program can be stored. 





NOTE: DCTL means the error was detected in the DUP control record, DUPCO means the error was detected in the DUP common section. 


Table A-10. DUP Waits and Loops Table A-11. FORTRAN I/O Error Codes 


The following error codes are displayed in the accumulator upon 
Address, Explanation Operator Action detection of the errors, Press PROGRAM START to perform a branch 


to the monitor to proceed to the next subjob. 


1, Logical unit defined incorrectly. 
2. No *lIOCS contro! record for specified I/O 
device. 


Loops: System check. Reload entire Monitor 
70FF@03A8 LET/FLET, COMMA, | System, 

(occurs after and DCOM do not 

console printer agree. 

prints first 220 

core positions) 


Wait at 092C Paper tape reader not | Read paper tape reader 
ready. and press PROGRAM 
START. 


FOO2 Requested record exceeds allocated buffer size. 


F003 Illegal character encountered in input record, 


Wait at 002E Operator pressed To continue, branch to 
PRO GRAM STOP 0030; press PROGRAM 
on console. START. 


F004 Exponent too large or too small in input field. 


FOOS More than one E encountered in input field. 





F006 More than one sign encountered in input field. 


F007 More than one decimal point encountered in 
input field. 


FOO8 1. Read of output-only device. 
2. Write of input-only device. 


F100 File not defined by DEFINE FILE statement. 


F101 File record too large, equal to zero, or negative, 


DISKZ Errors: 
F102 Read error. 
F104 Write error, 
F106 Read back check error. 
F108 Seek error. 


FIOA Forced read error (seek or find). 
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DISK SYSTEM FORMAT (DSF) 


Unless otherwise instructed, DUP automatically 
converts programs in Card System format (CDS) to 
Disk System format (DSF) when storing programs to 
disk storage. Likewise, programs in DSF are con- 
verted to CDS when dumping from disk storage. 
Disk System format is shown in Figure 11; Card 
System format is described elsewhere in this 
appendix. 


Program Header Format 


The contents of the program header record (see 
Figure 11) vary with the type of routine with which 
it is associated. The first 12 words of the program 
header record for the seven types of programs are 
identical except for word 6, which is 9 less than 
the number of words in the program header record. 
The format of these 12 words is as follows: 


Data Block 


APPENDIX B. DATA FORMATS 


Word Contents 
1 Zero 
2 Checksum if source was cards; 


otherwise zero 

Type, subtype, precision 

4 Effective length of program, i.e., 
the terminal address in the program 


ie) 


5 Length of COMMON (words) 
6 Length of program header record 
minus 9 
7 Zero 
8 Number of files defined 
9 Length of program, including 
program header record in disk 
blocks 
10-11 Name of entry point 1 (see 
Appendix G) 
12 Address of entry point 1 (absolute 
for type 1, relative to zero 
otherwise) 


O_o 


Program Header ee st Indicator words and 
(12-54 words) P Header 


See description below, (1-8 words) sesh tan kel 


end-of- program 
. data header 
Indicator Word Indicator words and 
Data Header (2 words): data groups until 
Word 1 - Relative core starting data break 
address of where data 


End-of-program data 
header (2 words); 


Word 1] = Relative address of 


is to be loaded Data Break - next available core location 
Word 2 - Number of data words following Caused by: ; Word 2 = Word count (0) 
to next data header, plus number 1, A break in sequence of program 


address, e.g., ORG, BSS, DSA 


2, A new data record 


of words in next data header 


3. The end of the program 


Figure 11. Disk System Format 
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After the first 12 words, the program header 
record format depends on the type of program. The 
header record for types 1 and 2 (absolute and 
relocatable mainline, respectively) consists of 

the first 12 words. The program types and their 
header record formats are shown below. 


Program Types 


Type 
Code Type of Program 
1 Mainline (absolute) 
2 Mainline (relocatable) 
3 Subroutine, not an ISS, referenced 
by LIBF 
4 Subroutine, not an ISS, referenced 
by CALL 
5 Interrupt service subroutine (ISS) 
referenced by LIBF 
6 Interrupt service subroutine (ISS) 
referenced by CALL 
7 Interrupt level subroutine (ILS) 


Program Formats 


Type 3, 4: 


Words Contents 
13-14 Name of entry point 2 (30 bits, 
right-justified) 
15 Address of entry point 2 (relative 
to zero) 
17-18 Name of entry point 3 (30 bits, 
right-justified) 
19 Address of entry point 3 (relative 
to zero) 
20-54 Three words per entry point as 


above, to amaximum of 14 entry 
points. The header record ends 
at the last defined entry point; 
thus, it is of variable length 
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Type 5, 6: 


Words Contents 


13 50 + ISS number 

14 ISS number 

15 Number of interrupt levels required 

17 Interrupt level number associated 
with primary interrupt* 

18 Interrupt level number associated 


with secondary interrupt 


Type 7: 
Words Contents 
13 Interrupt level number 


*The 1442 Card Read Punch is the only device re- 
quiring more than one interrupt level. 


Program Subtypes 


Subtypes are defined only for type 3 and 4 sub- 
routines. When undefined, the field contains a zero. 

For type 3 subroutines, subtypes are defined as 
follows: 


Subtype Description 


0 In-core subroutines. Of the IBM 
subroutine library, this group in- 
cludes the trace, fix, float, dump, 
subscript, normalize, flipper, 
initialization, and certain conversion 


subroutines 

1 Disk FORTRAN I/O subroutines, 
SDFIO and SDF ND ee 

2 Arithmetic subroutines, e.g., FADD 

3 FORTRAN Format subroutine SFIO, 
and FORTRAN I/O subroutines, e.g., 
CARDZ 

4 Conversion routines for the FORTRAN 


I/O subroutines, e.g., HOLEB 


For type 4 subroutines, subtypes are defined as 
follows: 


Subtype Description 
0 All type 4 subroutines which are not 
subtype 8, e.g., DMTDO 
8 Functional subroutines, e.g., SIN 


Appendix E lists all IBM-supplied subroutines and 
their subtypes. 


DISK CORE IMAGE FORMAT (DCI) 


A program in Disk Core Image format (DCI) is one 
that the Loader has converted from Disk System 
format (DSF). A DCI program is an entire core 
load, i.e., it consists of a mainline program, all 
subroutines referenced in the core load (except the 
Disk I/O routine), the object-time transfer vector, 
and the core image header record. The mainline 
program and subroutines appear as they will at 
execution time; however, the Loader must prepare 
the program for execution before it is read into 
core storage. 

Although programs are loaded faster from DCI 
than from DSF, DCI programs usually occupy more 
disk storage because they constitute an entire core 
load. In addition, unlike DSF programs, the areas 
reserved by BSS and BES statements are a part of 
DCI programs unless the first statement in the 
mainline is a BSS or BES. 

A typical DCI program is stored on disk in the 
User/Fixed area as follows: 


Core Image 
Header 
Record 


Mainline Subroutines Object-time 


Transfer Vector 


Program (if any) 





The object-time transfer vector is described in 
the section titled The Loader. Information contained 
in the 60-word core image header record is used to 
load the DCI program into core before execution. 

The format is as follows: 


Words Description 
1-6 Interrupt transfer vector (words 
8-13 at execution time) 
7 Setting for index register 3 at 
execution time 
8 Core address (at execution time) of 
the subroutine ILS02 
9 Number of files defined 
10 Length of COMMON (in words) 
il Code for requested version of the 


Disk I/O subroutine (-1 = DISKZ, 

0 = DISKO, 1 = DISK1, 2 = DISKN) 
12 Core address (at execution time) of 

the entry in the LIBF TV which is 

associated with the Disk I/O sub- 


routine 

13 Length of the object-time transfer 
vector (in words) 

14 Core address (at execution time) of 


the first word of the mainline pro- 
gram, exclusive of initial BSS and/or 
BES statements 
15 Total length of mainline program, 
subroutines, and object-time transfer 
vector (in words) 
16-60 Reserved 


DISK DATA FORMAT (DDF) 


Disk Data format (DDF) describes information 
placed in the User area, Fixed area, or Working 
Storage area as a result of the DUP control record 
STOREDATA, Disk Data format consists of 320 
binary words per sector; there are no headers, 
trailers, or indicator words. 


CARD SYSTEM FORMAT (CDS) 


Card System format is in terms of words on binary 
cards (see Card Data Format). The card ID and 
sequence numbers (columns 73-80) are in IBM 
card code. 


Mainline Header Card 


A mainline header card specifies the size of the 
common area and the size of the work area. It is 


Appendix B. Data Formats 59 


the first card of the mainline program. The 
format is as follows: 


Word Contents 
1 Reserved 
2 Checksum* 
3 Type code (first 8 bits): 


0000 0001 - absolute 
0000 0010 - relocatable 
Precision code (last 8 bits): 
0000 0001 - standard 
0000 0010 - extended 
0000 0000 - undefined 


4 Reserved 

5 Length of COMMON storage area 
(FORTRAN mainline program 
only) : 

6 0000 0000 0000 0011 

7 Work area required (FORTRAN 
only) 

8-54 Reserved 


*The checksum is the two's complement of the 
logical sum of the record count (position of the 
record within the deck) and the data word(s). 

The logical sum is obtained by summing the 

data word(s) and the record count arithmetically 
with the addition of a one each time a carry occurs 
out of the high-order position of the accumulator. 


Data Cards 


Data cards contain the instructions and data that 
constitute the assembled program. The format is 
as follows: 


Word Contents 


1 Location (The relative load address 
of the first data word of the card or 
record. Succeeding words go into 
higher numbered core locations. 
The relocation factor must be added 
to this address to obtain the actual 
load address. For an absolute 
program the relocation factor is 
zero. ) 

2 Checksum 

3 Type code (first 8 bits): 

0000 1010 
Data word count (last 8 bits) 
4-9 Relocation indicators (2 bits per 
data word): 
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00 - nonrelocatable or absolute 
01 - relocatable 

10 - LIBF (one word call) 

11 - CALL (two word call) 


10 Data word 1 
11-54 Date words 2 through 45 
EOP Card 


An EOP (end of program) card is the last card 
of each program and subroutine. The format is 
as follows: 


Word Contents 
1 Starting location of next routine 


(this number is always even and 
is assigned by the assembler) 


2 Checksum 
3 Type code (first 8 bits): 
0000 1111 
Last 8 bits: 
0000 0000 
4 XEQ address, if mainline program 
5-54 Reserved 


Subroutine Header Card 


A maximum of 14 entry points can be defined for 
each subroutine. The format of the subroutine 
header card is as follows: 


Word Contents 
1 Reserved 
2 Checksum 
3 Type code (first 8 bits); 


0000 0011 - to be called by a 
one-word call only (LIBF) 

0000 0100 - to be called by a 
two-word call only (CALL) 

Precision code (last 8 bits): 

0000 0000 - undefined 

0000 0001 - standard 

0000 0010 - extended 


4-5 Reserved 
6 Number of entry points times three 
7-9 Reserved 
10-11 Name of entry point 1 
12 Relative address of entry point 1 
13-51 Names and relative addresses of 
entry points 2 through 14 

52-54 Reserved 


ISS Header Card 


An ISS (interrupt service subroutine) header card 
for each interrupt service subroutine identifies 
the entry point defined by an ISS statement. Only 
one entry point can be defined for each 


subroutine. 
is as follows: 


Word 
1 


2 
3 


14 


15 
16 


17-29 


30 
31-54 


The format of the ISS header card 


Contents 


Reserved 
Checksum 
Type code (first 8 bits): 
0000 0101 - to be called by a 
one-word call only (LIBF) 
0000 0110 - to be called by a 
two-word call only (CALL) 
Precision code (last 8 bits): 


0000 0000 - undefined 
0000 0001 - standard 


0000 0010 - extended 

Reserved 

Six plus number of interrupt levels 
required | 

Reserved 

Subroutine name 

Relative entry address 

Address of ISTV (interrupt service 
transfer vector) is equal to 5119 
plus the ISS number. * 

ISS number (displacement in ISTV) 
= 1-815) 

Number of interrupt levels required 

ID number for the primary interrupt 
level required (0-5) 

ID numbers for remaining interrupt 
levels required (0-5) 

Edit word (contains a 1) 

Reserved 


*The ISTV table is initialized by the Loader. This 
table starts at location 0034. Each TV entry in 
this table contains the starting addresses for the 
corresponding ISS routine (maximum of 8 TV 


entries). 


ILS Header Card 


An ILS (interrupt level subroutine) header card 
identifies the ILS routine. The format of the 
ILS header card is as follows: 


Word Contents 
1 Reserved 
2 Checksum 
3 Type code (first 8 bits): 
0000 0111 
Reserved (last 8 bits) 
4-5 Reserved 
6 0000 0000 0000 0100 
7-9 Reserved 
10-12 Reserved 
13 Interrupt level number 
14-54 Reserved 


CARD DATA FORMAT (CDD) 


Card Data format (CDD) is shown in Figure 12. 
Fifty four words can be placed on a card (1-1/3 
columns per word, 4 columns for 3 words). The 
word numbers appear in every third column across 
the top of the card. 


PRINT DATA FORMAT (PRD) 


Print Data format is shown in Figure 13. There are 
16 four-character words per line, with a space 
after each word, and an additional space after each 
fourth word, 


PAPER TAPE SYSTEM (PTS) AND PAPER TAPE 
DATA (PTD) FORMATS 


Paper Tape System format (PTS) is analogous to 
Card System format (CDS), and Paper Tape Data 
format (PTD) is analogous to Card Data format 
(CDD). 

In Paper Tape format, two frames contain one 
binary word, which is equivalent to 16 bits per 
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binary word in Card Data format. In addition, a 
one-frame word count precedes a paper tape record. 
A paper tape data record contains a maximum of 54 
binary words, i.e., 108 frames plus a word-count 
frame. 

Information that would appear in columns 73-80 
of a card must not appear on paper tape. 


Word 1 Word 54 


-_ 


HTD 14 73 70.77 7879 
744191149 


82 2222222 
9133333333 






4444444 
B5 55555555 
§6666666 


18M 1130-1800 BINARY CARD 


T77TT777 
88888888 
99999999 


0)7 sgRGR OF 71 490 2B 222) PEMIGT BPO 3 IBIS WT ae 26S Ses | PBS eles Seger ese ee Oey latina 6a BP eps fe: 16 75-877 7819.00 
mus7es79 


Figure 12. Card Data Format 


4 4 4 4 
characters characters characters characters 


Word 1 Word 2 Word 3 Word 4 





— SS 


Space after 
each 4th word 


Figure 13, Print Data Format 
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APPENDIX C. DISK STORAGE UNIT CONVERSION FACTORS 


Bits 320 5,112 8,192,000 
Data Words 20 320* 512,000 
Disk Block 16 25 , 600 
Sectors 1 ,,600 
Tracks 400 
Cylinders 200 


*These follow the first actual word of each sector, which is used for the address. 
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APPENDIX D. SUPERVISOR AND DUP INPUT/OUTPUT CHARACTER CODES 


PTTC/8 
Hex 
(U = Upper Case) 
Keyboard Graphic 1132 Graphic IBM Card Code (L = Lower Case) 


PTTC/8 
Hex 
(U = Upper Case) 
Keyboard Graphic 1132 Graphic IBM Card Code (L = Lower Case) 


Numeric Characters Special Characters 


OMAN AO RWNH —O 
OMNAURWNH—O 
OANA ON hkWNH— O 


Alphabetic Characters 


my “Nt — % A Qo + —~Nee 


< 
( 
+ 
& 
: 
) 
/ 
% 
# 
® 


2) 
g 

a 

@ 





NOTES: 1. DUP recognizes only those special characters flagged 
with an asterisk. 
2. Any special characters not recognized by SUP and 
DUP will be corrected to an ampersand (&). 


N<xXS<CAMYMHOVOZSOH-ASTFTOMMIOAS>Y 


A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
O 
Pp 
Q 
R 
S 
T 
U 
Vv 
Ww 
xX 
Y 
Zz 


SPlOSSSC SSP 
OONA AO HRwWh 
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1130 SUBROUTINE LIBRARY LISTING 


Utility Calls 

Selective Dump on Console Printer 
Selective Dump on 1132 Printer 

Dump 80 Routine 

Common FORTRAN Calls 

Test Data Entry Switches 

Divide Check Test 

Functional Error Test 

Overflow Test 

Sense Light Control and Test 
FORTRAN Trace Stop 

FORTRAN Trace Start 

Integer Transfer of Sign 

Extended Arith/Funct Calls 

Extended Precision Hyperbolic Tangent 
Extended Precision A**B Function 
Extended Precision Natural Logarithm 
Extended Precision Exponential 
Extended Precision Square Root 
Extended Precision Sine-Cosine 
Extended Precision Arctangent 
Extended Precision Absolute Value Function 
FORTRAN Sign Transfer Calls 
Extended Precision Transfer of Sign 
Standard Precision Transfer of Sign 
Standard Arith/Funct Calls 

Standard Precision Hyperbolic Tangent 
Standard Precision A**B Function 


Standard Precision Natural Logarithm 


Standard Precision Exponential 
Standard Precision Square Root 


Standard Precision Sine-Cosine 


DMTDO, DMTXO 
DMPD1, DMPX1 


DMP80 


DATSW 
DVCHK 
FCTST 
OVERF 
SLITE, SLITT 
TSTOP 
TSTRT 


ISIGN 


ETANH, ETNH 
EAXB, EAXBX 

ELN, EALOG 

EEXP, EXPN 

ESQR, ESQRT 

ESIN, ESINE, ECOS, ECOSN 
EATN, EATAN 


EABS, EAVL 


FTANH, FTNH 


FAXB, FAXBX 


FLN, FALOG 


FEXP, FXPN 
FSQR, FSQRT 


FSIN, FSINE, FCOS, FCOSN 


EEXP, ELD/ESTO, EADD, EDIV, EGETP 
EEXP, ELN, EMPY 

XMD, EADD, EMPY, EDIV, NORM, EGETP 
XMD, FARC, EGETP 

ELD/ESTO, EADD, EMPY, EDIV, EGETP 
EADD, EMPY, NORM, XMD, EGETP 
EADD, EMPY, EDIV, XMD, EGETP, NORM 


EGETP 


ESUB, ELD 


FSUB, FLD 


FEXP, FLD/FSTO, FADD, FDIV, FGETP 
FEXP, FLN, FMPY 


FSTO, XMDS, FADD, FMPY, FDIV, NORM, 
FGETP 


XMDS, FARC, FGETP 
FLD/FSTO, FADD, FMPY, FDIV, FGETP 


FADD, FMPY, NORM, XMDS, FSTO, FGETP 
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e] 


Standard Precision Arctangent FATN, FATAN FADD, EMPY, FDIV, XMDS, FSTO, FGETP 
Standard Precision Absolute Value Function FABS, FAVL FGETP 

Common Arith/Funct Calls 

Fixed Point (Fractional) Square Root XSQR 

Integer Absolute Function {ABS 


Floating Binary /EBC Decimal Conversions FBTD (BIN. TO DEC.) 
FDTB (DEC. TO BIN.) 


Overlay Routines for LOCAL Subprograms 

Long Form . DISKZ or DISKO 

Short Form DISK] or DISKN 

FORTRAN Trace Routines 

Extended Floating Variable Trace SEAR, SEARX ESTO, TTEST, SWRT, SIOF, SCOMP 
Fixed Variable Trace SIAR, SIARX TTEST, SWRT, SIOI1, SCOMP 
Standard Floating IF Trace SFIF FSTO, TTEST, SWRT, SIOF, SCOMP 
Extended Floating {F Trace SEIF FSTO, TTEST, SWRT, SIOF, SCOMP 
Fixed IF Trace SIF TTEST, SWRT, SIOI, SCOMP 
Standard Floating Variable Trace SFAR, SFARX FSTO, TTEST, SWRT, SIOF, SCOMP 
GOTO Trace SGOTO TTEST, SWRT, SIOI, SCOMP 


Non-Disk FORTRAN Format |/O 


FORTRAN Format Routine SFIO, SIOI, SIOAI, SIOF, SIOAF, FLOAT, ELD/ESTO or FLD/FSTO, IFIX 
SIOFX, SCOMP, SWRT, SRED, SIOIX 


FORTRAN Find Routine SDFND DISKZ 
Disk FORTRAN I/O SDFIO, SDRED, SDWRT, SDCOM, DISKZ 
ee SDAF, SDF, SDI, SDIX, SDFX, 

SDAI 
FORTRAN Common LIBFs 
FORTRAN Pause PAUSE 
FORTRAN Stop STOP 


FORTRAN Subscript. Displacement SUBSC 


Calculation 

FORTRAN Subroutine Initialization SUBIN 
FORTRAN Trace Test and Set TTEST, TSET 
FORTRAN 1/0 and Conversion Routines 

FORTRAN Card Routine 

Disk 1/O Routine 


FORTRAN Paper Tape Routine 
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FORTRAN 1132 Printer Routine 
_ FORTRAN Keyboard-Typewriter Routine 
FORTRAN Typewriter Routine 

FORTRAN Hollerith to EBCDIC Conversion 
FORTRAN Get Address Routine 
FORTRAN EBCDIC Table 

FORTRAN Hollerith Table 

Extended Arith/Funct LIBFs 

Extended Precision Get Parameter Subroutine 
Extended Precision A**I Function 
Extended Precision Divide Reverse 
Extended Precision Float Divide 
Extended Precision Float Multiply 
Extended Precision Subtract Reverse 
Extended Add-Subtract 

Extended Load-Store 

Standard Arith/Funct LIBFs 

Standard Precision Get. Parameter Subroutines 
Standard Precision A**] Function 
Standard Precision Divide Reverse 
Standard Precision Float Divide 
Standard Precision Float Multiply 
Standard Precision Subtract Reverse 
Standard Add-Subtract 

Standard Load-Store 

Standard Precision Fractional Multiply 
Common Arith/Funct LIBFs 

Fixed Point (Fractional) Double Divide 
Fixed Point (Fractional) Double Multiply 
Sign Reversal Function 

Integer to Floating Point Function 
Floating. Point to Integer Function 


I**J Integer Function 


EGETP 

EAXI, EAXIX 

EDVR, EDVRX 
EDIV, EDIVX 

EMPY, EMPYX 


ESBR, ESBRX 


EADD, ESUB, EADDX, ESUBX 


ELD, ELDX, ESTO, ESTOX 


FGETP 

FAXI, FAXIX 

FDVR, FDVRX 
FDIV, FDIVX 

FMPY, FMPYX 


FSBR, FSBRX 


FADD, FSUB, FADDX, FSUBX 


FLD, FLDX, FSTO, FSTOX 


XMDS 


XDD 


XMD 


SNR 


FLOAT 


FIX 


FIXIE, FIXIX 


None 

GETAD, EBCTB, HOLEZ 
GETAD, EBCTB 
GETAD, EBCTB, HOLTB 
None 

None 


None 


ELD 
ELD/ESTO, EMPY, EDVR 
ELD/ESTO, EDIV 

XDD, FARC 

XMD, FARC 

EADD 

FARC, NORM 


None 


FLD 
FLD/FSTO, FMPY, FDVR 
FLD/FSTO, FDIV 

FARC 

XMDS, FARC 

FADD 

NORM, FARC 


None 


None 





Appendix E. 1130 Subroutine Library Listing 67 


Normatize Subroutine 


Floating Accumulator Range Check 
Subroutine 


Interrupt Service Subroutines 

Card Input/Output (No Error Parameter) ILSOO, 1LSO4 
Card Input/Output (Error Parameter) ILSOO, ILSO4 
One Sector Disk Input/Output 1LSO2 | 
Multiple Sector Disk Input/Output ILSO2 
High-Speed Multiple Sector Disk Input/Output ; ILSO2 
Paper-Tape Input/Output ILSO4 
Simultaneous Paper Tape Input/Output ILS04 
Plotter Output Routine ILSO3 

1132 Printer Output Routine 1LS01 
Keyboard/Console Printer Input/Output HOL, PRTY, ILSO4 
Console Printer Output Routine ILSO4 
Conversion Routines 


Binary Word to 6 Decimal Characters (Card None 
Code) 


Binary Word to 4 Hexadecimal Characters None 
(Card Code) 


6 Decimal Characters (Card Code) to None 
Binary Word 


EBCDIC to Console Printer Output Code EBPA, PRTY 
Card Code to EBCDIC-EBCDIC to Card Code EBPA, HOLL ~ 
Card Code to Console Printer Output Code HOLL, PRTY 


4 Hexadecimal Characters (Card Code) to None 
Binary Word 


PTTC/8 to EBCDIC-EBCDIC to PTTC/8 EBPA 
PTTC/8 to Card Code-Card Code to PTTC/8 EBPA, HOLL 
PTTC/8 to Console Printer Output Code EBPA, PRTY 
Card Code to EBCDIC-EBCDIC to Card Code None 
EBCDIC and PTTC/8 Table None 

Card Code Table None 
Console Printer Output Code Table None 
Interrupt Level Subroutines 


Interrupt Level Zero Routine 
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Diher Subroutines Regu 


Interrupt Level One Routine 


Interrupt Level Two Routine 


Interrupt Level Three Routine 


Interrupt Level Four Routine 
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APPENDIX F, IN-CORE COMMUNICATIONS AREA (COMMA) 


The Disk Communications Area (DCOM), sector 8 
on the disk, is read into core starting in address 
0028 (decimal 40). The In-Core Communications 
Area (COMMA), therefore, is an image of DCOM, 
but offset by 40 words. The first 10 words 
(0028-0031) include the IOCS error and interrupt 
error traps. The IOCS error trap entry word 
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(0028) is initialized to contain the version and 

modification level of the Disk Monitor System, 
and will be overlayed by a return address if an 
IOCS error occurs, 


The core locations and contents of COMMA 
are shown below. 


32 


33 
34 

35 

36-45 

46 


47 


54 
55 
56 
57 
58 
59 
5A-5B 


5C 


IOCS counter, incremented by 1 upon entry to every [OCS subroutine (provided an XIO is to be executed), decremented by 
1 after an operation complete interrupt. 


Reserved, 
Core address (in user program) of Interrupt Level 2 subroutine (ILS02), 
Number of files defined. 
CALL LINK/CALL EXIT linkage to Skeleton Supervisor. 
Length of COMMON (in words). 
Type of Disk I/O required, €.g., 
-1 = DISKZ (special disk routine) 
0 = DISKO 
1 = DISKI 
2 = DISKN 
Reserved, 
System Addresses 
Reserved. 
Sector address of FORTRAN, zero if FORTRAN deleted. 


Sector address of Assembly Program, zero if deleted. 


32019 (length of 1 sector). 


Sector address of first (numerically lowest) sector of Core Image Buffer (CIB). Word 1 of FLET header printed by DUMPLET. 


OO00A (address in lower core, i.e., in the interrupt transfer vector, to which all disk interrupts branch indirectly). 


Sector address of first (numerically lowest) sector of Fixed Location Equivalence Table (FLET). Word 2 of FLET header 
printed by DUMPLET. 


Sector address of first (numerically lowest) sector of Location Equivalence Table (LET). 


Sector address of first (numerically lowest) sector of User area, 


File protect sector address, otherwise used as sector address of Working Storage (base). Word 1 of LET header printed by 
DUMPLET. See Note 1. 


Same as above (adjusted). Word 2 of LET header printed by DUMPLET. See Note 1. 
LET/FLET Entries 

Total number of words used on disk by FLET. Word 3 of FLET header printed by DUMPLET. 

Reserved. 

Total number of words used on disk by LET (base). Word 5 of LET header printed by DUMPLET. See Note 1. 
Same as above (adjusted), Word 6 of LET header printed by DUMPLET. See Note 1. 

Next available disk block address in User area (base). Word 3 of LET header printed by DUMPLET. See. Note 1. 
Same as above (adjusted). Word 4 of LET header printed by DUMPLET. See Note 1. 

Name of program (LET/FLET entry words 1 and 2), 


Disk blocks used by program (LET entry word 3), Second word printed out at end of DUP function. 
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. 106 


107 -108 


. 109 


110-111 


. 142-114 


44, 
45, 
46, 
47, 
48. 
49, 


50. 
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115-120 


121 
122-125 
126 
127 


128-137 


139-144 


LET/FLET Entries (Continued) 


Core execution address of program (relative for relocatable programs, absolute otherwise) for word 12 of the program header 
record, Not used as word 4 of LET/FLET entry. 


Core loading address of program, also used as first word on mainline program, or first word of define file table (LET/FLET 
entry word 5 for core image program). 


Word count/disk block count of program, i.e., word count for core image programs, disk block count for data files, and 


address of next available core location following the program in Disk System format that is in Working Storage on the disk 
(LET/FLET entry word 6 for core image program data file). 


Switches 


Principal print device (odd = console printer/keyboard, even = 1132). See Note 2. 
Principal 1/O device (odd = 1442, even = 1134/1055). See Note 2, 
Temporary mode if non-zero, normal if zero. 


Non-XEQ (disable XEQ until next // JOB record if non-zero, enable XEQ if zero). See Note 3, 


Non-DUP (disable DUP functions until next // JOB record is detected if non-zero, enable DUP functions if zero). 


System Overlays and/or LOCALs are used in program if non-zero. 


Disable Supervisor reading of monitor.control record if non-zero, enable if zero (positive indicates monifor control record 
has been read under invalid conditions, negative under valid conditions) . 


Loader return to Supervisor if zero, to address in switch itself if non-zero (after restoring DUP). 
Core map requested if non-zero, no map if zero, 

WS Indicator Word (disk block count of program in Working Storage). 
Parameters for Disk 1OCS 

Disk Arm Position 

Reserved 

Disk File Protect Address 

Reserved 

Table of Defective Cylinders 

Reserved 

Miscellaneous 

Disk block address of program. First word printed out at end of DUP function. 
Reserved 

Size of core (1000) 4+ 2000)¢) 

Absolute execution address of core load (for word 6 of LET/FLET entry). 
Reserved 

Contents of index register 3 (points to middle of a 255-word transfer vector). 


System Work Area 





NOTE 1: When requested following a //JOB T control record, DUP will 
store information to disk and update LET ona temporary basis (only the 
adjusted value is altered). When the next //JOB or //JOBT control 
record is encountered, the adjusted value will be replaced by the base 


NOTE 2; The interrupt levels associated with the I/O devices will be 
specified in COMMA, Since four bits are sufficient to specify any ILS 
number, three 1/O levels may be included in each of the two words in 
COMMA which identify the principal 1/O device and the principal print 


Interrupt level of 
principal print device 


Interrupt level of 
principal 1/O device 





Example 


Word 96: 1132 + Console Printer 
Console Printer 


1400 16 
400116 


NOTE 3: Set to something other than zero or one by any part of the sys- 
tem that finds a non-XEQ type error, reset to one by Supervisor after 


Interrupt level of 
secondary print device 


Interrupt level of 
column interrupt for 
1442 if principal 1/0 
device is 1134/1055; 
interrupt level of end- 
of-card interrupt for 
1442 otherwise. 


value. Thus, all information which has been stored in the User area since 
the first //JOBT record will be deleted. The //JOBT function requires 
that both base and adjusted values be available in COMMA, The base 
and adjusted values will be equal except during //JOB T operation. 


device (items 31 and 32,respectively). The rightmost four bits in each of 


these words identify the devices themselves. The layouts of these two 
words are as follows: 


Reserved for future use 


Principal print device 
indicator (0=1132, 
l=console printer/ 
keyboard) 


Principle I/O device 
indicator (0=1134/1055, 
1=1442, 2=console 
printer/keyboard) 


Interrupt level of 
end-of-card interrupt 
for 1442 if principal 
1/0 device is 1134/ 
1055; interrupt level 
of 1134/1055 other- 


Supervisor only 
wise. 


Word 97: 1442 040116 
1442 + 1134/1055 044114 
1134/1055 4000} 6 


printing out a message, reset to zero by Supervisor upon sensing a //JOB 
record, 
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APPENDIX G. LAYOUT OF LET/FLET ENTRIES 


THREE-WORD ENTRIES 


Words Description 
1-2 Name of the program, consisting 


of five 6-bit characters, right- 
justified in the 32 bits of words 

1 and 2. Names of less than five 
characters are padded with 
terminal blanks. A 6-bit 


character is formed by truncating 


the leftmost two bits of the 
EBCDIC representation of that 


character. Bits 0 and 1 are zeros. 


3 Disk block count of the program. 


SIX-WORD ENTRIES 


Words Description 
1-2 Same as for three-word entries, 


except that for core-image pro- 
grams, bit 0 is zero and bit 1 is 
one; and for data files, both bits 
0 and 1 are ones. 

3 Disk block count of the program, 
including padding. Padding is the 


74 


Words Description 


number of disk blocks between the 
end of the last program or file 
stored and the beginning of this 
program, which is a sector 
boundary. 

4 Execution address of the program, 
i.e., the core location to which 
control is passed for execution 
of the program (zero for data files). 

5 Loading address of the program, 
i.e., the core location to which 
control is passed for the execution 
of the program (zero for data 
files). 

6 Word count of the program, i.e., 
the number of words to be read 
from the disk when reading the 
information from disk to core 
storage. 


NOTE 1: Eight sectors each are allocated for 
LET and FLET. 


NOTE 2: The order of the entries in LET is the 
order in which the named items are stored in 
the User area. 


APPENDIX H. 


IBM00, the 1130 Disk Monitor System maintenance 
program, is the means by which a user updates his 
disk as modifications are released. The program 
automatically updates the monitor programs 
(Supervisor, Disk Utility, FORTRAN, and 
Assembler), provides a method of changing the 
IBM subroutine library, and also updates the 
version and modification level in the first word 
in DCOM. The leftmost 4 bits represent the 
version, and the rightmost 12 bits represent the 
modification level. 

A card deck or paper tape containing correc- 
tions to maintain the monitor will be supplied 
by IBM. This includes all necessary control 
records. Every modification must be run to 
update the version and modification level even 
though the program affected is not on the disk. 

IBMO00 is stored on the disk as part of the 
IBM subroutine library. It is called from disk 
by the following control record: 


ce 


1234567891011 12 13 1415 16 17 18 19 


// XEQ 1BMO 0 0 


A zero must appear in position 19 of the XEQ 
record to specify DISKO. 

Input to the program can be stacked with 
other jobs. However, when stacking modifica- 
tions to the Monitor System, each patch that 
increases the modification level must begin with 
the above control record (see Figure 14). 

Input to the program can be cards or paper 
tape. IBM00 determines the input device 
automatically by interrogating COMMA for the 
principal I/O device. 


SYSTEM PROGRAM MAINTENANCE 


Typical input for a system program update is as 
follows: 


IBM00 (1130 DISK MONITOR SYSTEM MAINTENANCE 
PROGRAM) | 


cc 


1234567891011 1213 1415 1617 1819 


// XEQ 1BM 00 0 
Patch header record 
Patch data record 


One to eight data records 
Patch data record 


Patch header record 
Patch data record 


One to eight data records 


Patch data record 
Patch header record 


Next monitor control record —___» 












Update data records 
(new version of subroutine XXXXX) 


Ugdate function control records 


Subroutine library update header 


System maintenance program 
call 







// XEQ 1BM00 


Next monitor control record 


Update data records 


Figure 14, Control Records and Data Organization (in Card Form) 
for Monitor Program and Subroutine Library Maintenance 


System program header recerd 





System maintenance program 
cali 
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Patch Header Record 


Each sector to be changed requires a patch 
header record. Thus, if a patch crosses a 
sector, two header records are required. If 
FORTRAN or the assembler is being modified, 
a check is made to determine if that system 
program has been voided from the disk. If so, 
the modification is not made. 

The format of a patch header record (in 
terms of card input) is as follows: 


Columns Contents 
1-3 Program ID (FOR, ASM, DUP, 
SUP) 
10-11 Monitor System Version (01-15). 


The patch is not made if the 
version number does not agree 
with the version number in DCOM. 
15-17 Modification Level (000-999). 
This must be the same in every 
header within a patch deck. The 
patch is made only if the modifica- 
tion level number is equal to or 
one greater than the modification . 
level in DCOM. Changes to the 
modification level must be in 
ascending order, increasing by 
one level at a time. 

The user may rerun the 
modifications to his system by 
starting with modification level 
001. If this is lower than the 
modification level in DCOM, a 
message is typed, followed by a 
wait. This notifies the user that 
he is processing his modifications 
from the beginning; upon continuing, 
the patch is made and the 
modification level is changed to 
001. 

The modification level in DCOM 
is updated after the last record of 
the entire change is processed. 

21-23 Sector Address (absolute, 
decimal, sector to be modified, 
except for the assembler, in 
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Columns Contents 


which case it is relative to the 
sector address of the first 
sector of the assembler). 

27-29 Relative word number of first 
patch word (000-319). 

33-35 Word count of patch (001-320). 

40-41 Total records in modification 
(02-99). This should appear only 
on the first patch header record. 
The count is the total record 
count of the modification, 
including data records and patch 
header records. 

78-80 . Sequence number (always 001). 


Data Record 


A data record (in terms of card input) is a binary 
data card (see Appendix B, Card System Format). 
One to eight data records can follow each patch 
header record, depending on the size of the 
patch. These must be numbered from 002 to 

009, and must contain the proper checksum for 
this sequence. 


The data record format is as follows: 


Words Contents 
1 Location 
2 Checksum 
3 Type code (first 8 bits): 
00001010; 
Word count (last 8 bits) 
4-9 Relocation indicators 
10-54 Data words 1 through 45 
55-60 ID and sequence number 


IBM SUBROUTINE LIBRARY MAINTENANCE 


Changes to the subroutine library require reloading 
the new subroutine. IBM00 updates the version 
and modification level word; the actual reload is 
performed by 2a DUP DELETE function, followed 
by a DUP STORE function. 


Typical input for a subroutine update is as 
follows: 


cc 
1234567891011 1213 1415 1617 18 19 20 21 


// XEQ IBM 0 0 0 


(Subroutine header record) 


// DUP 
*DELETE ee 
*STORE CD UA name 


or 
PT 


(New version of the subroutine) 


Subroutine Header Record 


The subroutine header record must go through 
IBM00 even if the subroutine being modified is 
not on the user's disk. This is necessary to 
update the version and modification level word 
.in DCOM so that the next sequential modification 
level can be made. 
The format of a subroutine header record 
(in terms of card input) is as follows: 


Columns Contents 
1-3 SUB (to signify a subroutine update) 
10-11 Monitor System Version (01-15) 
15-17 Modification Level (000-999) 


OPERATING PRGCEDURES 


The card deck or paper tape supplied by IBM is to 
be run as a monitor job. When the control record 
//XEQ IBMO00 is read, the version and modification 
level of the monitor is typed (see Figure 15, lines 
1, 2, and.3). When the correct input is read, 

lines 1 through 6 of Figure 15 are typed. 


ERROR MESSAGES 


IBM00 error messages are listed in Table H-1. 


Table H-1. IBMOO Monitor System Maintenance Error Messages 


U01 INVALID HEADER 


Program cannot recognize header 
record, 


Data record checksum error. A record 
might be out of sequence or there 
might be an invalid data record, 


U02 CHECKSUM ERROR 


Monitor control record was encoun- 
tered before the updating process 
was completed. 


U03 MCR BEFORE EOJ 


U04 VERSION ERROR 


The version on disk does not agree 
with the version in header record. 


The modification level in the header 
record is not equal to or one greater 
than the modification level on disk. 


U05 MOD, LEVEL ERROR 





NOTE 1: All of the above errors require a retry of the execution after 
corrective action has been taken, Following an error type out, the 
program waits; pressing PROGRAM START causes an exit to the 
Supervisor. 


NOTE 2: A user can start at modification No. 1 and add all modifi- 
cations to date. A message is typed when this condition is encountered, 
followed by a wait. PROGRAM START must be pushed to continue, 

The following message will be typed: ‘THE MONITOR SYSTEM IS 
BEING UPDATED WITH MOD, LEVEL NO. 1. PUSH PROGRAM 
START TO CONTINUE.’ 


(Line 1) IBMOO MONITOR SYSTEM MAINTENANCE 
(Line 2) VERSION NO. IS XX 
(Line 3) PRESENT MODIFICATION LEVEL IS XXX 


(Line 4) MONITOR SYSTEM UPDATE COMPLETED 
(Line 5) VERSION NO; IS XX 
(Line 6) NEW MODIFICATION LEVEL IS XXX 





Figure 15, Typeouts for 1130 Monitor System Maintenance Program 
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APPENDIX I. UTILITY ROUTINES 


In addition to the IBM subroutine library, the 
following three utility programs, each complete 
with subroutines and loaders, are supplied to 
the user to enable him to perform operations 
external to the 1130 Disk Monitor System: 


e Disk Pack Initialization Routine (DPIR). This 
routine is described under System Generation 


.Operating. Procedures - Card System. 


e Console Printer Core Dump (described below). 


e 1132 Printer Core Dump (described below). 


CONSOLE PRINTER CORE DUMP 


This routine aids the user in the debugging of 
programs. The programmer can dump portions 
of core by loading a single-card console routine 
which occupies the first 80 words of core. The 
output device is the console printer. 


Format 


This routine dumps core in hexadecimal form, 
starting with the word specified in the Console 
Entry switches. Dumping continues until 
PROGRAM STOP is pressed. 

Words are dumped in four-digit hexadecimal 
form, with a space between each word. The 
first word typed is the starting address of the 
dump. The number of characters per line 
depends upon the margin settings of the console 
printer. 


Operating Procedures 


1. Set the Console Entry switches to the address 
at which dumping is to start. 

2. Place the program card in the reader and set 
the Mode switch to RUN. 

3. Press IMM STOP and RESET on the console. 

4, Press START on the 1442. 
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5. Press PROGRAM LOAD on the console. 


Dumping proceeds until IMM STOP is pressed. 
Press PROGRAM START to resume the dump. 


1132 PRINTER CORE DUMP 


This is a self-loading, four-card routine that 
dumps the contents of core storage in hexadecimal 
format on the 1132 Printer (the fourth card is 
blank). The routine is also available in paper 
tape. 

Dumping begins at hexadecimal address 00A0 
and continues to the end of core. Sixteen words per 
line are printed, preceded by a four-digit 
hexadecimal address of the first word of each line. 


Card Operating Procedure 


ra 


Ready the 1132 Printer. 

2. Place the dump routine deck in the 1442 
Card Read Punch hopper. 

Press IMM STOP and RESET on the console. 
Press START on the 1442. 

5. Press PROGRAM LOAD on the console. 


me oo 


Dumping continues until the last 16 words of 
core are addressed and printed. 

The program does not skip to the top of a new 
page to start, nor is page numbering or page 
overflow provided. 


Paper Tape Operating Procedure 


1. Ready the 1132 Printer. 

2. Place the dump from 00QA0 tape in the paper 
tape reader so that one of the delete codes 
beyond the program ID in the leader is 
beneath the starwheels. 

3. Press IMM STOP, RESET, and PROGRAM 
LOAD on.the console. 


The output format is the same as described for 
the card routine. 
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4/7 JOB 
// FOR 


belied IBM 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 
*#ONE. WORD INTEGERS 

*LIST ALL 

#I0CS (CARDs 1132 PRINTER» DISK) 

*#NAME SAMPL 


TBM 1130 OISK MONITOR FORTRAN SAMPLE PROGRAM 
TBM 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 
SIMULTANEOUS EQUATION ROUTINE 
DEFINE FILE 1 (1093209UsINXT) 
DIMENSION Al10s10)9X(10) 08(10) 9¥(10) 
301 FORMAT (1H1s20X15HINCOMPATIBILITY) 
302 FORMAT (1H 20X41HMORE EQUATIONS THAN UNKNOWNS@NO SOLUTIONS) 
303 FORMAT (1H 20X46HMORE UNKNOWNS THAN EQUATIONS@SEVERAL SOLUTIONS) 
304 FORMAT (1H 20X15HSOLUTION MATRIX) 
305 FORMAT(1H 20X8HMATRIX A) 
306 FORMAT(1H 20X8HMATRIX B) 
307 FORMAT (1H 20X10H A@INVERSE) 
308 FORMAT(IH 20X24HDIAGONAL ELEMENT IS ZERO) 
309 FORMAT (1H 20X*A@=INVERSE TIMES A*) 
Ma2 
L=3 
READ (M910) 
10 FORMAT(72H SPACE FOR TITLE 
1 ) 
WRITE (L910) 
12 FORMAT (6110) 
READ (Me12)M1oM2eL19L2eN15N2 
Ml = NOe OF ROWS OF 
M2 = NOe OF COLS OF 
L1 = NOe OF ROWS OF 
2 
Zz 


an 


L2 NOe OF COLS OF 
N1 NOe OF ROWS OF 
N2 = NOe OF COLS OF 
13 FORMAT (7F10e4) 
17 FORMAT (10F1004) 
TF (N2=1)63 964963 
64 IF (L2=1)63965963 
65 IF (L1=-M2)63 966963 
66 IF (M1=9N1163911963 
63 WRITE (L9301)} 
GO TO 2 
11 N=M1 
N=M2 
IF (M1=M2) 91914993 
91 WRITE (19302) 
. GO TO 2 
93 WRITE (L303) 
GO TO 2 
14 WRITE (19305) 
DO 70 IaleN 
READ (Mel3)(ACT oJ) eJel oN) 
WRITE (Lol7)(ACT oJ) sJ@10N) 
70 CONTINUE 
89 FORMAT (F104) 
WRITE (19306) 
READ (MsB9)(BI(T) oImleN) 
WRITE (L989)(BC IT) olel0N) 
¢ PRESERVE THE ORIGINAL MATRIX ON DISK 
DO 19 I=1l6N 
19 WRITE (1°I) (AlCIsIT) 9 JeleNn) 
C INVERSION OF A 
20 DO 120 KeloeN 
OzA(KoK) 
IF (D) 40 0200040 
40 A(KeK)2#1,0 


NANnANAN 
Ow x <x >» »> 
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DKSAMOO1 
DKSAMO02 


PAGE Q1 
OKSAMOO3 
DKSAMO04 
DKSAMO05 
OKSAM006 
DKSAM0O7 


PAGE 02 
DKSAMOOS 
DKSAMOO9 
DKSAMO10 
DKSAMO11 
OKSAMO12 
DKSAMO13 
OKSAMO014 
DKSAMO15 
OKSAMO016 
OKSAMO17 
OKSAMO18 
DKSAMO19 
DKSAMO20 
DKSAMO21 
DKSAMO22 
DKSAMO23 
DKSAMO24 
DKSAMO25 
OKSAMO26 
OKSAMO27 
DKSAMO28 
DKSAMO29 
DKSAMO30 
DKSAMO31 
DKSAMO32 
OKSAM033 
DKSAM034 
DKSAMO35 
DKSAMO36 
DKSAMO37 
OKSAMO38 
DKSAMO39 
DKSAMO040 
DKSAM041 
DKSAM042 
DKSAM043 
DKSAM044 
DKSAMO45 
DKSAMO046 
DKSAM047 
DKSAMO048 
DKSAMO049 
DKSAMO50 
DKSAMOS51 
DKSAMO52 
OKSAMO53 
DKSAMO54 
DKSAMO55 
DKSAMO56 
DKSAMO057 
DKSAMO58 
OKSAMO59 
DKSAMO060 
DKSAMO61 
OKSAMO062 
DKSAM063 
DKSAM064 
DKSAM065 
DKSAM066 


Sample Program Output 
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TBM 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 
50 DO 60 J#leN 
60 AlKeJ)sA(KsJI/0 
IF (K@N) 80901300130 
80 IK=K+l1 
0O 120 IsIKeN 
OsA(ToK) 
A(T9K)#0¢0 
DO 120 J#loeN 
120 A(loJtA(ToJIm(DEA( Kod)? 
c BACK SOLUTION 
130 IK=N=-1 
DO 180 KelsIk 
140 Tl*k+1 
DO 180 IsIloNn 
DaA(Kot) 
A(Kol)9000 
170 DO 180 J#leN 
180 A(KeJIBA(KeJ)@(DHA(T 9 J)) 
GO TO 202 
200 WRITE (19308) 
GO TO 2 
C PRINT INVERSE 
202 WRITE (10307) 
00 201 I#loeN 
WRITE (Lol7(ACT oJ) oJaloNn} 
201 CONTINUE 
WRITE (b9309) 


€ COMPUTE AND PRINT A@INVERSE TIMES A 
DO 123 JzleN 
C RETRIEVE ORIGINAL BY COLUMNS 


READ (1°35) (X(M)s M21l0N) 
00 122 I#leN 
Y(I) = 000 
DO 122 K = leN 
122 YCT) = YCTIOACT OK) #X(K) 
123 WRITE (Lol?) CYCT)® IaleN) 
OO 21 I#19N 
X(1)#020 
OO 21 Ke#leN 
21 XTX TP+ACT KK) 8B CK) 
WRITE (19304) 
WRITE (Le89)(XCT) oIeloN) 
2 CALL EXIT 
END 


18M 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 


VARIABLE ALLOCATIONS 
A sO0CE X 200E2 8B =Q0F6 Y 2010A 
Li 20113 L2 20114 Ni 20115 N2 #0116 


UNREFERENCED STATEMENTS 
20 50 140 170 


STATEMENT ALLOCATIONS ; 
301 #0127 302 20134 303 #2014E 304 016A 
12 20108 13 #0108 17 sO01DE 89 2O1E1 
93 2024A 14 20250 70 20289 19 202C6 
130 20374 140 2037E€ 170 #0399 180 #0390 
2 20406 


FEATURES SUPPORTED 
ONE WORD INTEGERS 
1Tocs 


CALLED SUBPROGRAMS 
FADDX FMPYX FOIV FLD FLDX FSTO 
CARDZ PRNTZ SOFIO SDRED SDWRT SOCOM 


REAL CONSTANTS 


el00000E 01#0120 eOOOGOO0E 0020122 


INTEGER CONSTANTS 
220124 320125 120126 


CORE REQUIREMENTS FOR SAMPL 
COMMON O VARIABLES 288 PROGRAM 952 


END OF COMPILATION 
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FSTOX 
SOFX 


2010C 
#0117 


20177 
s021C 
s02E7 
203CF 


INXT 


FSBRX 


2010E 
20118 


#0160 
20222 
202FB8 
20305 


SRED 


PAGE 03 
DKSAMO067 
DKSAMO068 
DKSAMO69 
OKSAMO70 
DKSAMO72 
DKSAMO72 
DKSAMO73 
DKSAMO74 
OKSAMO75 
OKSAMO76 
OKSAMO77 
DKSAMO78 
OKSAMO79 
OKSAMO80 
DKSAMO081 
DKSAMO82 
DKSAMO83 
OKSAMO84 
DKSAMO85 
DKSAMO86 
OKSAMO87 
OKSAMO88 
DKSAMO89 
OKSAMO90 
OKSAMO91 
DKSAMO92 
DKSAMO093 
DKSAMO94 
DKSAMO95 
OKSAMO96 
DKSAMO097 
DKSAMO98 
OKSAMO099 
DKSAM100 
DKSAM101 
OKSAM102 
DKSAM103 
DKSAM104 
DKSAM105 
DKSAM106 
OKSAM107 
DKSAM108 
OKSAM109 
OKSAM110 


PAGE 04 


sO010F 
20119 


| x. 4 


307 #0189 
66 20228 
50 20306 
201 s03F6 


L 
K 


SWRT SCOMP 


20110 
sOllA 


20193 
#022E 
2030A 
#2042D 


SFIO 


M1 
IK 


STOFX 


#0111 
#0118 


201A4 
20234 
20325 
2045¢C 


S10! 


10 
91 
120 
21 


#0112 
#011¢ 


20182 
20244 
20344 
=048C 


SuBSC 


// XEQ 


FILES ALLOCATION 
1 016C OO0A 
STORAGE ALLOCATION 


L 


R 47 OFT1 (HEX) WORDS AVAILABLE 


O3A5 (HEX) IS THE EXECUTION ADDRe 
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402150 
“261200 
121220 


362160 
162470 
203456 


002915 
001631 
-000283 


009999 
0290000 
=0 20000 


069321 
162654 
007429 


LIBF TRANSFER=VECTOR 


&BCTB 
HOLTB 
GETAD 
NORM 
XMDS 
FARC 
HOLEZ 
IFIX 
FLOAT 
FADDX 
SDREO 
F SBRX 
FMPYX 
FOIV 
FSTOXx 
FLOX 
SDCOM 
SDFX 
SOwRT 
STOFX 
SUBSC 
SIo! 
SCOMP 
SWRT 
SRED 
FSTO 
FLD 
PRNTZ 
CARDZ 
SFIO 
SOFIO 
DISKZ 


1015 
OFDF 
OF9E 
OF 74 
OF58 
OF 36 
OFOO 
OED8 
OECE 
0E79 
06CO 
0E50 
OE1C 
ODCA 
OD72 
OO8E 
O6E4 
0682 
O70€ 
0915 
ODA8 
0919 
0901 
O8F8 
0928 
0076 
0092 
occo 
OCc7B 
09CD 
0713 
OOF4 


SYSTEM ROUTINES 


TLSO02 


1019 


MATRIX A 


102120 11050 
305050 -106320 
163130 309860 


MATRIX B 


A~INVERSE 


000833 =000467 
003836 001118 
001029 003006 


A“INVERSE TIMES A 


=020000 020000 
029999 =020000 
020000 120000 


SOLUTION MATRIX 


DKSAM111 
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4/ 308 


// 4A 
*LIS 


#PRINT SYMBOL TABLE 


0000 
0001 
0002 
0004 
0005 


0006 
0007 


0008 
0009 
OO0A 
000B 
000C 
000D 
OOOE 
OOOF 
0010 
0011 
0012 
0013 
0014 
0015 
0022 
0023 
0024 
0030 
0031 
0032 


SM 
T 


0 

20 
30 
20 


oS 


o 


oo Seog Ne Oe oer oN 


oo 


€030 
06406063 
06898640 
091899C0 
1008 


E829 
b01B 


05097663 
0000 
0023 
0015 
OO1A 
23A17170 
2000 
0014 
23A17170 
0000 
TOFO 
6038 
OOOE 
0000 
8181 
0000 
0018 
F040 
0040 
0000 


BEGIN 0000 


NO ERRORS IN ABOVE ASSEMBLY. 


D64 


BEGIN LD 


TYPE 


WORD1 


MASK 
064 


LIBF 
CALL 
LI6F 
SLA 


OR 
STO 


0031 


MASK 0030 


COMPUTE THE SQUARE ROOT OF 64 


D64 

FLOAT INTEGER TO FLOATING PTe 
FSQR FLOATING PTe SQRTe 

IFIX . FLOATING PTe TO INTEGER 
8 


MASK TO BUILD EBCDIC INTEGER 
RESULT AND EBCDIC BLANK IN WORD1e 
MASK 

WORD1 

CONVERT MESSAGE FROM EBCDIC 

TO ROTATE/TILT CODEs 

EBPRT 
ie] 
wORD1 
TYPE61 
26 
TYPEO 
42000 
TYPE 
TYPEO 


TYPE MESSAGE 


WAIT FOR TYPING COMPLETE 


tm} 
RETURN TO MONITOR CONTROL 
14 
13 
486181 
tant 
eIS THE SQUARE ROOT OF 64.6 
/F040 
64 
BEGIN 


SYMBOL TABLE 


TYPE 0014 WORD1 0023 


SMASMOO1 
SMASMO002 
SMASMO03 
SMASMO004 


PAGE 1 
SMASMO006 
SMASMOO07 
SMASMOO8 
SMASMOO9 
SMASMO10 
SMASMO11 
SMASMO12 
SMASMO13 
SMASMO14 
SMASMO15 
SMASMO16 
SMASMO17 
SMASMO18 
SMASMO19 
SMASMO020 
SMASMO21 
SMASMO22 
SMASM023 
SMASM024 
SMASMO25 
SMASM026 
SMASM027 
SMASMO28 
SMASMO029 
SMASMO30 
SMASMO3 1 
SMASM032 
SMASM033 
SMASM034 
SMASMO35 
SMASMO36 


// XEQ L SMASM037 
R 47 1907 (HEX) WORDS AVAILABLE 

CALL TRANSFER VECTOR 

FSQR o20¢c 

LIBF TRANSFER=VECTOR 


FARC 066C 
XMDS 0650 
HOLL 0600 
PRTY 0$B0 
EBPA 0560 
FADO OGAF 
FOIV 050E 
FLO 045A 
FADODX 0485 
FMPYX 0470 
FSTO 043E 
FGETP 0424 
NORM O3FA 
TYPEO 0202 
EBPRT 026C 
IF IX 0244 
FLOAT O1F4 
DISKZ OOF4 


SYSTEM ROUTINES 


ILS04 0691 
1LS02 O6AD 


O1C2 (HEX) IS THE EXECUTION ADORe 


Program Output on Console Printer 


8 IS THE SQUARE ROOT OF 64 


Appendix J. Sample Program Output 83 


Adding and removing subroutines 39 
ARITHMETIC TRACE, FORTRAN control record 33 
ASM, monitor control record 9 
Assembler 26 

Control records 26 

error detection codes 29 

messages and error codes 29 

operating procedures (card) 29 

operating procedures (paper tape) 30 

origin of source program 28 

paper tape format 28 
Assembler control records 26 

COMMON 28 

FILE 28 

LEVEL 28 

LIST 27 

LIST DECK 27 

LIST DECK E 27 

PRINT SYMBOL TABLE 27 

PUNCH SYMBOL TABLE 28 

SAVE SYMBOL TABLE 28 

SYSTEM SYMBOL TABLE 28 

TWO PASS MODE 26 
Assembler error messages (Table A-7) 52 


Card Data format (CDD) 61 
Card subroutine errors (CARDO and CARD1) 36 
Card System format (CDS) 59 
Character codes, Supervisor and DUP I/O (Appendix D) 64 
Cold start 
halt addresses (Table 13) 44 
operating procedure, card 44 
operating procedure, papertape 46 
Cold start operating procedures (cards) 44 
Cold start operating procedures (paper tape) 46 
COMMA (In-Core Communications Area) 7 
core locations (Appendix F) 70 
Comments, Monitor control record 10 
COMMON, assembler control record 28 
Compilation error messages 35 
Compilation messages 34 
Console Printer Core Dump 78 
Console printer subroutine errors (TYPEO and WRTYO) 38 
Control records 
Assembler 26 
DUP 17 
FORTRAN 32 
Monitor 7 
Supervisor 10 
Conversion factors, disk storage unit 63 
Core image buffer (CIB) 4 
Core Image format 
format (Appendix B) 59 
loading 16 


Data cards (Card System format) 60 
Data formats (Appendix B) 57 
Card Data(CDD) 61 


INDEX 


Card System (CDS) 59 

Disk Core Image (DCI) 59 

Disk Data (DDF) 59 

Disk System (DSF) 57 

Paper Tape Data (PTD) 61 

Paper Tape System (PTS) 61 

Print Data(PRD) 61 
DCOM (Disk Communications Area) 7 
DEFINE, DUP control record 23 
DELETE, DUP control record 23 
Disk Communications Area (DCOM) 7 
Disk Core Image format (DCI) 59 
Disk Data format (DDF) 59 
Disk Pack Initialization Routine (DPIR) 40 
Disk storage allocation (Table 1) 3 
Disk storage layout 3 
Disk storage unit conversion factors 63 
Disk system format (DSF) 

format (Appendix B) 57 

loading 16 
Disk Utility Program (DUP) 17 

control records 17 

error messages (Table A-9) 55 

messages 24 

Operating notes 25 
DPIR card load operating procedures 40 
DPIR paper tape load operating procedures 45 
DUMP, DUP control record 18 
DUMPDATA, DUP control record 18 
DUMPLET, DUP control record 22 
DUP, monitor control record 10 
DUP control records 17 

DEFINE 23 

DELETE 23 

DUMP 18 

DUMPDATA 18 

DUMPLET 22 

DWADR 22 

EDIT 24 

STORE 20 

STORECI 20 

STOREDATA 21 

STOREMOD 20 
DUP error messages (Table A-9) 55 
DUP waits and loops (Table A-10) 56 
DWADR, DUP control record 22 


EOP card (Card System format) 60 

Error messages (Appendix A) 47 
Assembler (Table A-7) 52 
DUP (Table A-9) 55 
DUP Waits and Loops (Table A-10) 56 
FORTRAN (Table A-8) 53 
FORTRAN I/O (Table A-i1) 56 
Loader (Table A-6) 50 
Monitor Supervisor (Table A-4) 48 
Monitor Supervisor Wait Locations (Table A-5) 49 
System Loader (Table A-1) 47 


System Loader Wait Locations, Part 1 (Table A-2) 48 
System Loader Wait Locations, Part 2 (Table A-3) 48 
EXTENDED PRECISION, FORTRAN control record 33 


FILE, assembler control record 28 
File protection 5 
FILES, supervisor control record 11 
Fixed area 5 
Fixed Location Equivalence Table (FLET) 5 
FLET (Fixed Location Equivalence Table) 5 
layout of LET/FLET entries (Appendix G) 74 
output format (Figure 8) 23 
Flipper routine 5 
FOR, monitor control record 9 
Formats (Appendix B) 57 
FORTRAN compiler 32 
compilation error messages 35 
compilation messages 34 
control records 32 
I/O logical unit designations (Table 8) 32 
printouts 34 
FORTRAN control records 32 
ARITHMETIC TRACE 33 
EXTENDED PRECISION 33 
Iocs 32 
LIST ALL 33 
LIST SOURCE PROGRAM 32 
LIST SUBPROGRAM NAMES 32 
LIST SYMBOL TABLE 32 
NAME 33 
ONE WORD INTEGERS 33 
TRANSFER TRACE 34 
FORTRAN error codes (Table A-8) 53 
FORTRAN I/O error codes (Table A-11) 56 


IBM systems area 3 
IBMOO (1130 Disk Monitor System Maintenance Program) 75 
ILS header card (Card System format) 61 
In-Core Communications Area (COMMA) 7 
core locations (Appendix F) 70 
Initializing Disk Monitor System from cards 43 
Initializing Disk Monitor System from papertape 45 
IOCS, FORTRAN control record 32 
ISS header card (Card System format) 61 


JOB, monitor control record 9 
Keyboard subroutine functions (TYPEO) 38 


LET (Location Equivalence Table) 4 
layout of LET/FLET entries (Appendix G) 74 
output format (Figure 7) 22 
LEVEL, assembler control record 28 
LIST, assembler control record 27 
LIST ALL, FORTRAN control record 33 
LIST DECK, assembler control record 27 
LIST DECK E, assembler control record 27 
LIST SOURCE PROGRAM, FORTRAN control record 32 
LIST SUBPROGRAM NAMES, FORTRAN control record 32 
LIST SYMBOL TABLE, FORTRAN control record 32 
Load Mode Control Card 41 


Loader 12 

Loader messages/error messages (Table A-6) 50 
LOCAL, supervisor control record 10 

Location Equivalence Table (LET) 4 


Machine requirements ii 
Mainline header card (Card System format) 59 
Monitor control record analyzer 7 
Monitor control records 7 

ASM 9 

Comments 10 

DUP 10 

FOR 9 

JOB 9 

PAUS 9 

TEND 10 

TYP 9 

XEQ 10 
Monitor supervisor error messages (Table A-4) 48 
Monitor supervisor wait locations (Table A-5) 49 


NAME, FORTRAN control record 33 
NOCAL, supervisor control record 11 


Object-time transfer vector 15 
ONE WORD INTEGERS, FORTRAN control record 33 
Operating procedures 
cold start (cards) 44 
cold start (paper tape) 46 
DPIR cardload 40 
DPIR paper tape load 45 
initializing Disk Monitor System from cards 43 
initializing Disk Monitor System from paper tape 45 
system generation (card system) 40 
Optional tracing (FORTRAN) 34 
Origins for core loads 13 


Paper Tape Data format (PTD) 61 

Paper tape monitor system 45 

Paper tape subroutines (PAPT) 39 

Paper Tape System format (PTS) 61 

Patch header record (IBMOO) 76 

PAUS, monitor control record 9 

Pre-operative errors (subroutine library) 36 

Print Data format (PRD) 61 

PRINT SYMBOL TABLE, assembler control record 27 
Program header record (Disk System format) 57 
Program subtypes 58 

Program types 58 

PUNCH SYMBOL TABLE, assembler control record 28 


REQ Cards 42 


SAVE SYMBOL TABLE, assembler control record 28 
SCON Card 42 

Skeleton Supervisor 7 

SOCALs (system overlays) 15 

Stacked input arrangement 12 

STORE, DUP control record 20 

STORECI, DUP control record 20 

STOREDATA, DUP control record 21 


Index 85 


STOREMOD, DUP control record 20 
Subroutine header card (Card System format) 60 
Subroutine header record (IBM00O) 77 
Subroutine library 5, 36 
listing (Appendix E) 65 
Supervisor and DUP I/O character codes (Appendix D) 
Supervisor control record area 4 
Supervisor control records 10 
FILES 11 
LOCAL 10 
NOCAL 11 
Supervisor program 3, 7 
System generation (card system) 40 
System loader error codes (Table A-1) 47 
System loader wait locations, Part 1 (Table A-2) 48 
System loader wait locations, Part 2 (Table A-3) 48 
System overlays (SOCALs) 15 
SYSTEM SYMBOL TABLE, assembler control record 28 


TEND, monitor control record 10 


86 


64 


TERM Card 42 

TRANSFER TRACE, FORTRAN control record 34 
TWO PASS MODE, assembler control record 26 
TYP, monitor control record 9 


User area 4 

User storage area 4 

User-supplied cards 41 

Utility routines (Appendix I) 78 
Console Printer Core Dump 78 
Disk Pack Initialization Routine (DPIR) 40 
1132 Printer Core Dump 78 


Working Storage area 5 
Working storage indicator word 17 


XEQ, monitor control record 10 


1130 Disk Monitor System Maintenance Program (IBMO0O) 75 
1132 Printer Core Dump 78 
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